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PREFACE 


DPM/DPM-PLUS 

IKK  I  MENTATION  SET 

The  DPM/DPM-PLLS  documentation  set  consists  of  three  manuals.  These  manuals  describe  how  to 
generate,  program,  and  operate  a  DPM/DPM-PLUS  system.  The  three  manuals  are: 

•  DPM/DPM-PLUS  System  Generation  and  Management  Guide.  AA-J531B-TC 

This  manual  is  intended  for  personnel  responsible  for  the  generation  and  overall  operation  of 
a  DPM/DPM-PLUS  system.  The  manual  describes  how  to:  generate  a  DPM/DPM-PLUS 
system,  get  the  system  running,  verify  the  generation,  run  utilities,  shut  down  the  system,  and 
interpret  system  errors. 

•  DPM/DPM-PLUS  DECdataway  Intelligent  Subsystems  User's  Guide,  AA-J529B-TC 

This  manual  is  intended  for  application  programmers  who  write  host  and  remote  application 
tasks.  The  manual  describes  how  to  program  and  operate  a  DPM50  or  DPM23,  two  DEC- 
dataway intelligent  Subsystems  (DIS).  It  also  explains  how  a  DIS  communicates  with  a 
DPM  host  over  the  DECdataway. 

•  DPM/DPM-PLUS  Terminal  User's  Guide,  AA-J530B-TC 

This  manual  is  intended  for  application  programmers.  It  describes  how  to  write  DPM  host 
application  programs  that  can  communicate  with  terminals  over  the  DECdataway,  and  how 
to  run  host  application  tasks  from  DECdataway  terminals. 

MANUAL  ORGANIZATION 

This  manual  has  three  parts: 

Part  I  introduces  DPM/DPM-PLUS  terminals  and  terminal  software. 

Part  II  describe-  how  to  write  DPM  host  application  programs  that  will  communicate  with  tei initials 
through  the  DECdataway. 

Part  III  explains  how  to  run  host  tasks  from  terminal  connected  to  the  DECdataway. 

RELATED  DOCUMENTS 

In  order  to  use  DPM/DPM-PLUS,  you  must  be  thoroughly  familiar  with  the  operating  system.  Please 
refer  to  the  RS.\-I I M/RS\-I IS  D<xumentation  Directory  (AA-2593E-TC)  and  to  the  RSX-IIM- 
PLUS  Documentation  Directory  (AA-H426A-TC). 
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The  following  manuals  describe  the  DPM/DPM-PLUS  hardware: 

KDFl  1  -  A  User's  Guide,  EK-KDFl  1-UG-PR2 

DPMO!  DECdalaway  Terminal  Multiplexer  User's  Guide,  EK-DPMOl-UG-002 

DPM50  User's  Guide.  EK-DPM50-UG-O02 

IPI I/IP300/DPM50  Application  Programmer's  Manual,  AA-C877C-TC 

DPMOI  DECdataway  Terminal  Multiplexer  Technical  Manual,  EK-DPMOI-TM-001 

DPM50  Technical  Description,  EK-DPM50-TD-001 

DECdataway  User's  Guide,  EK-ISBI 1-UG-PRE 

Remote  Terminals  RT801.  RT803,  RT805  User's  Guide,  EK-RT80x-UG-OOI 

Remote  Terminals  RT80I,  RT803,  RT805  Technical  Description,  EK-RT80x-TM-001 

CONVENTIONS  USED  IN  THIS  MANUAL 

In  command  examples  and  messages,  upper-case  characters  always  appear  literally  as  shown:  lower- 
case characters  represent  variable  information. 

In  dialogue  examples,  user  input  is  shown  in  red. 

All  commands  are  terminated  by  pressing  RETURN,  which  is  not  shown  explicitly  in  this  manual. 

Shaded  text  applies  only  to  DPM-PLUS. 

Optional  parameters  in  the  FORTRAN  subroutine  calls  and  MACRO  requests  are  preceded  by  com- 
mas and  within  square  brackets.  If  all  optional  parameters  for  a  call  or  request  are  omitted,  no  comma 
after  the  required  portions  is  necessary.  However,  if  an  optional  parameter  is  specified,  and  other  op- 
tional parameters  have  been  omitted  to  its  left,  commas  must  be  used  to  show  the  empty  fields. 
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PART  1:     INTRODUCTION 


CHAPTER  1 
INTRODUCTION  TO  DPM/DPM-PLUS  TERMINAL  SOFTWARE 


A  Distributed  Plant  Management  (DPM)  system  is  a  network  of  computers  and  terminals  running  in  a 
host  PDP-1 1/34,  11 /44  or  1 1/70  processor.  The  host  operating  system  is  RSX-llM  for  a  DPM  system, 
and  RSX-1 IM-PLUS  for  a  DPM-PLUS  system.  This  manual  refers  to  both  systems  as  DPM,  except 
where  they  should  be  distinguished. 

The  communication  system  which  links  the  DPM  host  with  terminals  and  remote  computer  subsystems 
is  called  the  DECdataway.  The  DECdataway  system  consists  of: 

•  A  multidrop  cable 

•  A  DECdataway  controller  for  the  host  (ISBl  1) 

•  DECdataway  interfaces  in  the  remote  subsystems  (ISVl  1) 

•  DECdataway  interfaces  incorporated  into  terminals  (RT801,  RT803,  RT805)  and  multi- 
plexers (DPMOl  and  VTllO) 

This  manual  describes  how  to  write  DPM  host  application  tasks  that  can  communicate  with  terminals 
over  the  DECdataway  and  how  such  tasks  may  be  run  from  DECdataway  terminals.  Tasks  in  the  DPM 
host  can  communicate  with  standard  CRT  terminals,  hard  copy  terminals,  ruggedized  terminals,  and 
numeric  data-entry  terminals. 

1.1     DPM  TERMINAL  DESCRIPTIONS 

DPM  terminal  devices  include: 

•  Ruggedized  terminals  of  the  RTSOx  series 

•  Terminal  multiplexers  that  allow  standard  terminals  to  be  connected  to  the  DECdataway 

•  A  numeric  data-entry  terminal  (RT800) 

There  are  four  demonstration  tasks  for  testing  the  devices  listed  above:  WSDEMO,  FDMTST, 
DPMTST,  and  RT800D.  These  are  described  in  the  DPM/DPM-PLUS  System  Generation  and  Man- 
agement Guide. 

1.1.1     RTSOx  Terminals 

The  RTSOx  terminals  include  three  models: 

•  Time  and  Attendance  Station,  Model  RT801 

•  Basic  Work  Station,  Model  RT803 

•  Area  Work  Station,  Model  RT805 
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These  ruggedized  terminals  are  designed  for  interactive,  prompted  data  entry.  Each  terminal  includes  a 
DLCdataway  interface  and  a  power  supply. 

Features  of  the  RT801  include: 

•  Time  display 

•  Type-5  badge  reader 
Features  of  the  RT803  include: 

•  32-character  alphanumeric  display 

•  Type-3  combination  card/badge  reader 

•  Numeric  data-entry  keypad 

•  Lighted  Transaction  key 
Features  of  the  RT805  include: 

•  32-character  alphanumeric  display 

•  Type-3  combination  card/badge  reader 

•  Type-5  badge  reader 

•  Numeric  data-entry  keypad 

•  Eight  lighted  Transaction  keys 

•  Optional  features  include: 

Serial  line  interface  for  an  external  device  (e.g.  an  LA  36) 
Digital  I/O  interface 

Block  diagrams  of  the  RT80x  terminals  are  shown  in  Figure  1-1;  these  terminals  are  described  in  Ap- 
pendix A. 

1.1.2    Terminal  Multiplexers 

DECdataway  terminal  multiplexers  include  the  DPMOl  and  the  VTl  10.  The  DPMOl  terminal  multi- 
plexer provides  an  interface  between  CCITT,  EIA,  and  20  ma  current  loop  terminals  and  the  DECdata- 
way. A  DPMOl  can  support  up  to  four  terminals. 

A  VTl  10  is  a  VTl 00  terminal  that  incorporates  a  DPMOl  multiplexer;  the  VTl 00  terminal  is  con- 
nected to  one  of  the  four  multiplexer  ports.  This  manual  uses  the  term  DPMOl /VTl  10  for  both  the 
DPMOl  and  VTIIC  multiplexers. 

Among  the  terminals  that  can  be  interfaced  to  the  DECdataway  through  the  DPMOl /VTl  10  are: 

•  LA35  Printer 

•  LA36  Keyboard/ Printer 
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Figure  1-1     RT80X  Terminals— Hardware  Block  Diagram 
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LA  120  Keyboard/Printer 

LA  180  Printer 

VT52  Keyboard/CRT  Terminal 

VTIOO  Keyboard/CRT  Terminal 

RT800  Numeric  Data  Entry  Terminal 

Block  diagrams  of  the  DPMOl  and  the  VTl  10  are  shown  in  Figure  1-2.  (See  Appendix  B  for  an  oper- 
ational description.) 

1.1.3     Numeric  Data  Entry  Terminal,  Model  RT800 

The  RT800  is  a  data  entry  keypad  terminal  that  can  be  attached  to  a  DPM  system  through  a  DPMOl/ 
VTl  10  multiplexer.  The  RT800  has  a  16-character  numeric  display  and  a  numeric  keypad.  (See  Ap- 
pendix C  for  an  operationcl  description.) 

1.2     PERIPHERAL  CONTROL  BYTES  (PCBs) 

The  first  four  bytes  of  every  message  exchanged  between  the  host  and  a  DECdataway  terminal  must  be 
Peripheral  Control  Bytes  (PCBs). 

The  PCBs  are  used  to  perform  a  variety  of  control  functions  for  DECdataway  terminals.  They  can: 

Specify  the  type  of  card  or  badge  that  an  RT80x  should  read. 

Enable  the  RT80x  transaction  keys  or  keypad. 

Specify  whether  to  display  information  on  an  RT805  terminal  or  print  it  on  the  interfaced 
LA36  terminal. 

Activate  an  alarm  on  RT80x  terminals. 

Specify  whether  DPMOl/VTl  10  terminal  input  should  be  echoed. 

Specify  whether  input  from  multiplexer-connected  devices  should  be  treated  as  ASCII  or 
binary  data. 

Chapter  4  describes  the  PCBs  used  with  the  RT80x  terminals  and  terminal  multiplexers. 

Tasks  may  communicate  with  DECdataway  terminals  by  issuing  I/O  calls  in  which  PCBs  are  directly 
encoded  as  data,  or  by  issuing  calls  to  a  supplied  subroutine  package,  FDMUTR.  An  alternative,  Appli- 
cations Terminal  Support,  is  available  on  DPM-PLUS  systems  for  communicating  with  DPM()I/ 
VTl  10  terminals. 

1.2.1     Using  Directly  Encod  J  PCBs 

Applications  programmers  can  communicate  with  DECdataway  terminals  using  standard  program  in- 
terfaces. However,  the  first  four  cha'-scters  of  each  message  written  to  a  terminal  must  contain  PCBs  tc 
select  the  terminal  functions  w  be  v-  r'ormed.  Chapter  4  describes  legal  PCBs  and  their  meanings.  Sim- 
ilarly, the  first  four  bytes  of  any  dai^  returned  from  the  terminal  on  an  input  function  will  contain  PCBs 
identifying  the  terminal  function  which  supplied  the  data  and  providing  relevant  status  information. 

Two  special  QIC  function  codes  are  provided  to  reduce  the  processing  associated  with  PCBs:  lO.WPC 
(Write  with  Peripheral  Control)  and  lO.RPC  (Read  with  Peripheral  Control).  These  functions  use  two 
buffers:  one  for  data  and  one  for  control  information  (PCBs).  The  function  code  lO.WPC  causes  a  mes- 
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sage  to  be  sent  to  the  device:  this  message  consists  of  the  contents  of  the  control  buffer,  followed  by  the 
contents  of  the  data  buffer.  The  function  code  lO.RPC  causes  the  contents  of  the  control  buffer  to  be 
sent  to  the  device.  When  data  is  ready  it  is  sent  from  the  device  to  the  data  buffer. 

B>  dircctlv  encoding  PCBs.  the  programmer  has  access  to  all  the  functions  supported  by  DPM  termi- 
nals This  interface  also  minimizes  svstem  overhead  for  I/O  functions.  Hov\ever.  proper  use  of  PCBs 
requires  thorough  understanding  of  DPM  terminal  operation. 

Tasks  performing  I/O  to  DPM  terminals  cannot  be  checkpointed  "r  shuffled  v^hile  these  I/O  requests 
are  outstanding. 

1.3     FDM  SOrrW  ARE 

1.3.1  FDM  rtllitv  Subroutines  (FDMITR) 

The  I  l)\1  uiilitv  subroutines  offer  a  simplified  subroutine  interface  for  communication  uith  DPM  ter- 
minals, The\  are  supplied  as  object  modules  to  v\hich  user  programs  v^^itten  in  M.ACRO.  E.ASIC- 
Pl.L  S-2.  I  ORTR.W.  or  COBOl.  mav  be  linked.  The  functions  of  these  routines  include; 

•  Verifying  command  parameters. 

•  Constructing  the  actual  commands  (PCBs)  for  DECdatauav  terminals. 

•  Checking  the  results  of  command  execution. 

•  Reporting  exceptions  to  the  issuing  task. 

•  Interlocking  terminal  use  to  prevent  more  than  one  task  from  accessing  the  same  DECdata- 
vsay  terminal  at  the  same  time. 

•  I  nforcing  proper  sequencing  to  prevent  a  task  from  issuing  a  second  command  to  a  terminal 
before  the  previous  command  has  been  completed. 

A  programmer  using  the  FDMLTR  interface  may  access  all  functions  supported  bv  DPM  terminals 
vMthout  thorough  knowledge  of  terminal  operation.  Synchronization  and  error  reporting  are  simplified. 
In  addition,  the  subroutines  are  designed  so  that  a  single  task  may  use  them  to  communicate  with  sever- 
al terminals  concurrently. 

Programmers  using  the  FDM  subroutines  must  still  allocate  space  in  buffers  for  the  PCBs  returned  as 
the  first  four  bvtes  of  all  messages  from  terminals.  The  subroutines  do  not  support  event  flags  or  asyn- 
chronous system  traps  (,ASTs).  Programs  using  this  interface  are  not  eligible  for  checkpointing  or 
shuffling  while  their  DPM  terminal  I/O  is  outstanding.  I  inallv.  the  subroutines  occupy  approximately 
4K  words  of  task  space. 

T    minal  I/O  using  FDML  TR  is  described  in  C  hapter  2. 

1.3.2  Ihe  FDM  Dispatcher 

A  task  dispatcher  monitors  terminals  for  user  requests  to  run  tasks.  L  pon  receiving  a  request,  the  dis- 
patcher activates  the  indicated  task  and  associates  it  with  the  initiating  terminal. 

With  a  task  dispatcher,  applications  may  be  written  as  a  set  of  modular  tasks,  each  performing  a  specif- 
ic function.  This  modular  structure  reduces  development  time  and  simplifies  code  maintenance.  The 
use  of  a  dispatcher  allows  more  efficient  use  of  memory  since  tasks  need  not  be  resident  until  selected. 

All  DPM  systems  come  with  the  FDM  Dispatcher,  which  may  be  used  with  RTSOx  terminals  and  with 
terminals  connected  to  a  DPMOI/VTl  10. 
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The  FDM  Dispatcher  continuously  monitors  terminals  connected  to  the  DECdataway.  A  DECdataway 
terminal  operator  requests  a  task  by  pushing  a  Transaction  key  on  an  RT803  or  RT805  or  by  entering  a 
numeric  code,  called  a  transaction  index,  on  a  terminal  connected  ;o  a  multiplexer.  The  FDM  Dis- 
patcher determines  what  task  corresponds  to  the  Transaction  key  or  index,  invokes  the  requested  task, 
and  sends  the  device  identifier  of  the  requesting  terminal  to  the  task.  Tasks  invoked  by  the  FDM  Dis- 
patcher use  a  supplied  subroutine  to  communicate  with  the  dispatcher. 

The  FDM  Dispatcher  is  described  in  Chapter  5. 

1.4  CHECK  POINTING  AND  TERMINAL  I/O 

All  communication  with  terminals  on  the  DECdataway  is  message-oriented  Direct  Memory  Access 
(DMA).  Data  is  moved  dircctK  Worn  the  user's  buffer  to  the  terminal  and  vice  versa.  When  a  task  uses 
FDMLTR  or  directly  encoded  PCBs  for  DECdataway  terminal  I/O,  the  task  is  locked  in  memory  and 
is  ineligible  for  checkpointing  or  shuffling  while  an  I/O  request  is  pending.  Tasks  using  ATS  I/O  under 
DPM-PLUS  are  eligible  for  checkpointing  and  shuffling. 

If  an  application  uses  a  separate  task  to  communicate  with  each  terminal,  memory  could  become  filled 
wiih  a  few  tasks  merely  waiting  for  input  to  complete  while  other  tasks  would  be  unable  to  execute. 
Therefore,  it  is  strongly  recommended  that  terminal  applications  developed  on  DPM  (or  on 
DPM-PLLS  not  using  ATS  terminal  I/O)  be  designed  so  that  a  few  tasks  are  used  to  communicate 
with  many  terminals;  that  is.  tasks  should  be  multi-threaded.  With  multi-threading,  fewer  non-check- 
pointable tasks  are  needed  for  communications  and  it  is  less  likely  that  the  .system  will  run  out  of  memo- 
ry- 

1.5  APPLICATIONS  TERMINAL  SUPPORT  (ATS) 

On  DPM-PLUS  systems.  Applications  Terminal  Support  software  is  available  for  use  with  DPMOl/ 
VTI  10-connected  terminals.  ATS  offers  the  following  features: 

Standard  program  interfaces  may  be  used  to  communicate  with  DPMOl /VTI  10-connected 
terminals. 

Multiple  copies  of  tasks  may  be  run  simultaneously  at  different  terminals. 

Tasks  may  be  checkpointed  or  shuffled  during  ATS  I/O. 

Tasks  may  be  invoked  by  name  from  DPMOl /VTI  10-connected  terminals. 

A  login  mechanism  for  system  protection  is  supported. 

Access  to  individual  tasks  and  terminals  may  be  controlled. 

The  Tl:  pseudo  device  is  supported. 

HELP  files  are  supported. 

Specific  features  of  ATS  are  implemented  through  ATS  I/O  support  and  through  the  ATS  Dispatcher; 
these  are  described  in  the  following  sections. 

L5.1     ATS  Terminal  I/O 

ATS  software  lets  programs  communicate  with  DPMOl /VTI  10-connected  terminals  through  the  same 
software  interface  that  they  use  to  communicate  with  local  terminals.  A  program  need  not  be  modified 
in  any  way  to  communicate  with  DPMOl /VTI  10-connected  terminals;  no  recompiling  or  rebuilding  is 
required. 
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Tasks  may  be  checkpointcd  or  shufned  during  ATS  I/O  in  the  same  way  as  they  are  during  TT:  termi- 
nal I/O.  ATS  supports  only  a  subset  of  DPMOl/VTl  10  functions,  and  does  not  support  RT80x  termi- 
nals. ATS  I/O  uses  the  system  pool  for  intermediate  buffering. 

ATS  terminal  I/O  is  described  in  Chapter  3. 

1.5.2     ATS  Dispatcher 

The  .'\TS  Dispatcher  supports  both  terminals  connected  to  a  DHMOl/VTI  10  and  local  terminals  on  a 
DPM-PLUS  system.  After  logging  in  to  the  ATS  Dispatcher,  the  user  may  enter  a  task  name,  which 
will  be  invoked  by  the  dispatcher  and  associated  with  the  user's  terminal. 

The  .\TS  Dispatcher  provides  the  following  facilities: 

•  The  pseudo  device  TI:  (the  invoking  terminal)  is  dynamically  assigned  to  the  user's  terminal. 
Thus,  tasks  mav  issue  I/O  requests  to  the  device  TI:  rather  than  having  to  determine  the 
terminal  to  which  I/O  should  be  directed.  The  COBOL  functions  ACCEPT  and  DISPLAY, 
the  F  ORTRAN  functions  ACCEPT  and  TYPE  and  the  BASIC-PLUS-2  functions  INPUT 
and  PRINT  normally  direct  their  I/O  requests  to  the  device  TI:. 

•  Copies  of  a  task  may  be  created  dynamically  to  be  run  simultaneously  from  different  termi- 
nals. 

•  User  access  to  the  system,  to  individual  terminals,  and  to  particular  tasks  may  be  controlled. 

•  Users  may  have  the  contents  of  the  file  ATS.HLP  displayed  at  their  terminals  by  entering 
the  HELP  command  followed  by  keywords. 

The  ATS  Dispatcher  is  described  in  Chapter  6. 


PART  II:     COMMUNICATING  WITH  DECdataway  TERMINALS 


CHAPTER  2 


TERMINAL  I/O  USING  FDMUTR 


2.1     FDM  UTILITY  SUBROUTINES  (FDMUTR) 

FDMUTR  is  a  set  of  eight  subroutines  which  allow  a  user  task  to  communicate  with  RT801,  RT803, 
and  RT805  terminals,  and  terminals  connected  to  a  DPMOl/VTl  10  multiplexer.  A  task  can  commu- 
nicate with  one  terminal  at  a  time  (single-threaded)  or  with  many  terminals  (multi-threaded). 

FDMUTR  subroutines  can  be  called  from  tasks  written  in  COBOL-1 1,  BASIC-PLUS-2,  FORTRAN 
IV-PLUS,  or  MACRO-11. 

The  eight  subroutines  that  comprise  FDMUTR  are  summarized  in  Table  2-1  and  described  in  detail  in 
the  following  sections.  In  each  call,  all  parameters  passed  in  either  direction  are  the  addresses  of  one- 
word  (INTEGER*2)  variables  or  constants,  except  for  MSGBUF  and  PROBUF  (which  are  the  ad- 
dresses of  the  lower-order  or  leftmost  byte  of  ASCII  character  strings)  and  STAVEC,  which  is  the 
address  of  a  word  (INTEGER*2)  array. 

Three  versions  of  FDMUTR  are  supplied.  They  differ  only  in  the  number  of  terminals  each  one  is  able 
to  support,  as  indicated  below: 


FDMUTR 


16  terminals 


•  FDMUTX  —    64  terminals 

•  FDMUTG  —  224  terminals 

In  the  following  text,  functions  that  apply  to  the  DPMOi  multiplexer  also  apply  to  the  VTl  10. 

Table  2-1     FDMUTR-to-User  Task  Interface 


Subroutine 
Call 

Purpose 
Of  Call 

Resultant 
Parameters 

Causal 
Parameters 

FDINIT 
FDCONN 

Initialize 
FDMUTR. 

Connect  this 
task  to  a 
terminal;  i.e., 
attach  and  get 
configuration 
information. 

RESULT 
RESULT 

MAXTRM 

TRMIND, 

[SBADDR], 

[LUN] 
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Table  2-1     FDMUTR-to-User  Task  Interface  (Cont.) 


Subroutine 
Call 


Purpose 
Of  Call 


Resultant 
Parameters 


Causal 
Parameters 


FDDISC 

Disconnect  task 
from  terminal. 

RESULT 

TRMIND 

FDWRIT 

Write  a  message 

RESULT 

TRMIND, 

to  a  terminal. 

WRCODE, 

MSGBUF, 

MSGSIZ, 

[TRANLT], 

[STATUS] 

FDREAD 

Read  a  message 

RESULT, 

TRMIND, 

from  a  terminal. 

MSGBUF, 

RDCODE, 

MSGSIZ 

[TRANLT], 

[STATUS] 

FDPRRD 

Write  a  prompt 

RESULT, 

TRMIND, 

to  a  terminal, 

MSGBUF, 

PRCODE, 

then  read  a 

MSGSIZ 

PROBUF, 

message  from  it. 

PROSIZ, 

[TRANLT], 

[STATUS] 

FDWAIT 

Suspend  this  task 
until  a  ttrn-iinai 
completes  any 
FDWRIT,FDREAD, 
or  FDPRRD. 

WHOIND 

FDSTAT 

Get  status  vector 

STAVEC 

TRMIND, 

for  this  terminal. 

MSGBUF, 

[STCODE], 

[SCOUNT] 

2.2    SUBROUTINE  CALLS  AND  DESCRIPTIONS 

Two  simplified  examples  of  a  multi-threaded  and  a  single-threaded  task  are  shown  below.  Details  of 
each  FDMUTR  subroutine  are  then  presented,  with  the  COBOL,  BASIC,  and  FORTRAN  call  state- 
ment for  invoking  the  subroutines. 
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A  sample  COBOL  task  is  shown  in  Section  2.6,  and  a  sample  FORTRAN  task  is  shown  in  Section  2.7. 

To  call  FDMUTR  subroutines  from  a  task  written  in  MACRO,  the  address  of  the  argument  list  must 
be  in  R5  pric*  to  executing  the  CALL  macro,  and  the  first  byte  in  the  list  must  contain  the  number  of 
arguments  in  the  list.  FDMUTR  subroutines  do  not  change  R0-R5,  and  upon  return,  the  state  of  the 
carry  bit  is  not  significant.  A  sample  MACRO  task  is  shown  in  Section  2.8. 

2.2.1     Multi-Threaded  Task  Using  FDMUTR 


PROGRAM  ROULET 


C 
C 

C 

c 


THIS  PROGRAM  PLAYS  A  GAME  OF  ROULETTE  ON  FOUR  RT8(13/RT805  TERMINALS, 
THE  HOUSE  ALWAYS  WINS. 


C 

c 

100 
c 

200 
C 
C 
1000 

c 
c 

c 

c 

c 


!  REPLY  COMES  HERE,  BUT  IS  IGNORED. 


IMPLICIT  INTEGER*2  (A-Z) 

BYTE  REPLY (14) 

INTEGER*4  MSGONE  (7 )  ,MSGTWO (ft ) 

DATA  MSGONE/'ROUL' , 'ETTE' , '  -   ','PICK','  A  N','UMBE','R  -  '/ 

DATA  MSGTWO/'YOU  •,'LOSE',';  TR ' , ' Y  A^   'AIN  ','-    '/ 


CALL  FDINIT  (RESULT, 4) 


J  INIT  FDMUTR  FOR  4  TERMINALS. 


DO  100  I  =  1,4  !  USE  TRMIND  =  LUN,  AND 

CALL  FDCONN  (RESULT  ,  I  ,  I  +  "  "^  2  , 1)    !  CONNECT  TO  SB3  1:  ,SB3  4  :  ,  SBl  5  :  ,  SB3ft  :  . 

DO  200  I  =  1,4  !  SEND  FIRST  MESSAGE  TO  ALL  FOUR 

CALL  FDPRRD  (RESULT, REPLY , 3ft , I , 'QK ' ,MSGONE  ,28 ) 


CALL  FDWAIT  (WHO)  !  WAIT  FOR  DATA  ENTRY. 

IF  (WHO.LT.l)   GO  TO  1000    !  IGNORE  KEEP-ALIVE  RETURN. 


CALL  FDSTAT  (RESULT , WHO , REPLY ,' WT' ) 

CALL  FDPRRD  (RESULT , REPLY , 36 , WHO, ' QK ', MSGTWO, 22) 

GO  TO  1000  !  THIS  TASK  RUNS  FOREVER. 


END 
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2.2.2    Single-Threaded  Task  Using  FDMUTR 


PROGRAM  TELLEM 

C 

C   THIS  PROGRAM  ASKS  THE  HOST  OPERATOR  FOR  A  MESSAGE,  AND  THEN  SENDS 

C   THE  MESSAGE  TO  SOME  RT803/RT805/DPM01  TERMINALS. 


IMPLICIT  TNTSGER*2  (A-Z) 
BYTE  MESA'  "^  {3  2) 
DATA  MESAC.E/32*'  '/ 


1  INIT  MESSAGE  TO  BLANKS. 


100 
C 

200 
C 


C 
C 
C 


c 
c 


TYPE  100 

FORMAT  CSWHAT  DO  YOU  WANT  TO  TELL  THEM?>  '  ) 

ACCEPT    200, SIZE, (MESAGE(I) ,I=2,SIZE+1) 

FOl  MAT    (Q,31A1)  !    31    BYTE    MESSAGE,    MAX. 

CALL    FDINIT    (RESULT, 1)  •     INIT    FDMUTR    TO    USE    ONE    TERMINAL. 

IF    RESULT. NE. 'OK' )       STOP    'DUE    TO    BAD    FDINIT    RESULT' 


WRCODE    =    'FO' 

DO    1000    SBADR    =    "27  ,  '36 


!    SB27:-SB32:       TS    A    DPM01 

!    USE    SB27: ,    SB10: ,     .. .     ,    SB36; 


IF    (SBADR. EQ. "33)    WRCODE    =     'DM'     !    SB33:-SB36:     ARE    RTSXX'S 

CALL    FDCONN     (RESULT , 1 , SBADR , 1 )        !    TRMIND    =    LUN    =    1 

IF    (RESULT. NE. 'OK' )       GO   TO    1000     !     IF   CAN'T   CONNECT,    DON'T    USE. 


CALL    FDWRIT    (RESULT , 1 , WRCODE , '        ',1,)     !    BLANK    RT8XX    DISPLAY 

!    OR    SKIP    ON    DPM01 
IF    (RESULT. NE. "OK' )       STOP    'DUE    TO    BAD    FDWRIT    BLANK' 

CALL    FDSTAT    (RESULT , 1 , MESAGE ,' WT' ) 

IF    (RESULT. NE. 'OK' )       STOP    'DUE    TO    BAD    FDSTAT   BLANK' 


CALL    FDWRIT    (RESULT , 1 , WRCODE , MESAGE , SIZE+1) 

IF    (RESULT. NE. 'OK' )       STOP    'DUE    TO    BAD    FDWRIT   MESAGE' 


C 
C 
C 


C 

100U 

C 

END 


CALL  FDSTAT  (RESU' ", l , MESAGE ,' WT' ) 

IF  (RESULT. NE. 'OK' )  STOP  'DUE  TO  BAD  FDSTAT  MESAGE' 


Ml  =  -1 

CALL  FDDISC  (RESULT, Ml) 


IF  (RESULT. NE. 'OK' 
CONTINUE 


!  MINUS  ONE  =  -  TRMIND 
!  MAKE  THIS  TRMIND  AND  LUN  AVAILABLE 
•  NOTE  -1  LEAVES  MESSAGE  ON  DISPLAY, 
STOP  'DUE  TO  BAD  FDDISC 
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2.2.3    FDINIT— Initialize  FDMUTR 

CALL  "FDINir*  USING  RESULT,  MAXTRM. 
CALL  FDINIT  BY  REF  (RESULTS,  MAXTRM%) 
CALL  FDINIT  (RESULT,  MAXTRM) 


(COBOL  Call) 
(BASIC  Call) 
(FORTRAN  Call) 


FDINIT  is  used  lo  initialize  this  task's  copy  of  FDMUTR.  It  should  only  be  called  once,  and  must  be 
called  prior  to  using  any  other  FDMUTR  call.  If  FDINIT  is  called  a  second  time,  while  any  terminal  is 
connected,  the  results  are  unpredictable. 

RESULT  will  contain  the  encoded  result  of  this  call: 

'BF      =     Bad  Parameters 

'OK"     =     FDMUTR  initialized  correctly 

MAXTRM  is  the  maximum  number  of  FDM  terminals  which  this  task  uses.  If  MAXTRM  is  greater 
than  the  number  of  terminals  this  version  of  FDMUTR  was  built  for,  the  result  is  'BP';  otherwise,  the 
result  is  *OK'.  MAXTRM  should  correspond  to  the  number  of  terminals  that  this  task  will  be  using 
concurrently;  setting  MAXTRM  larger  than  necessary  results  in  excessive  execution  time  during  sub- 
sequent calls  to  FDWAIT. 

If  a  user  task  calls  any  FDMUTR  routine  prior  to  calling  FDINIT,  the  RESULT  of  that  call  will  be 
'BS'  (Bad  Sequence). 
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2.2.4    FDCONN— Connect  Task  To  Terminal 

CALL  "FDCONN"  USING  RESULT,  TRMIND  [3BADDR]  [,LUN]. 

CALL  FDCONN  BY  REF  (RESULTS,  TRMIND%  [,SBADDR%]  I,LUN%]) 

CALL  FDCONN  (RESULT,  TRMIND  [,SBADDR]  I,LUN]) 

FDCONN  establishes  a  logical  connection  between  TRMIND,  SBADDR,  and  LUN  which  remains  in 
effect  until  FDDISC  is  called  for  this  value  of  TRMIND  or  until  this  task  exits.  FDCONN  attaches 
this  terminal  to  this  task,  preventing  other  tasks  from  using  it.  FDCONN  acquires  and  verifies  the  con- 
figuration data  from  this  terminal,  and  initializes  the  terminal  (blanks  the  terminal  display).  (See  Sec- 
tion A. 2. 5  for  details  on  configuration  data.) 

RESULT  will  contain  the  encoded  result  of  this  call: 


'BP'      =     Bad  Parameters 

'BS'      =     Bad  Sequence  (FDMUTR  not  initialized  or  terminal  already  connected) 

TN'     =     Terminal  Not  connected  (invalid  SBADDR  or  invalid  LUN  or  invalid  configuration 

return  from  device  or  terminal  off-line.) 
'OK'     =     The  specified  terminal  is  now  connected 


TRMIND  is  the  index  to  this  terminal,  and  is  used  by  FDMUTR  as  an  index  to  FDMUTR's  internal 
working  storage.  If  TRMIND  is  greater  than  the  specified  value  of  MAXTRM,  the  RESULT  will  be 
BP'. 

SBADDR  is  the  numeric  portion  (nnn)  of  the  device  address  (SBnnn)  by  which  this  terminal  is  known 
to  the  operating  system.  If  SBADDR  is  not  specified,  the  last  value  associated  with  this  value  of 
TRMIND  will  be  used.  If  no  SBADDR  has  ever  been  connected  with  this  value  of  TRMIND,  the 
result  will  be  *BP'. 

LUN  is  the  logical  unit  number  to  be  used  for  this  terminal.  If  LUN  is  not  specified,  the  last  value 
associated  with  this  value  of  TRMIND  will  be  used.  If  no  LUN  has  ever  been  connected  with  this  value 
of  TRMIND,  the  result  will  be  'BF. 

When  using  FDMUTR,  LUNs  must  be  assigned  dynamically  via  FDCONN.  Static  assignments  should 
not  be  made  at  task-build  time.  If,  for  documentation  purposes,  it  is  desired  to  make  static  assignments 
at  task-build  time,  these  LUNs  should  be  given  a  dummy  assignment  to  SBO:. 
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2.2.5    FDDISC— Disconnect  Task  from  Terminal 
CALL  "FDDISC"  USING  RESULT,  TRMIND. 
CALL  FDDISC  BY  REF  (RESULTS,  TRMIND%) 
CALL  FDDISC  (RESULT,  TRMIND) 

FDDISC  breaks  the  logical  connection  to  the  specified  terminal  and  detaches  it  from  this  task. 

RESULT  will  contain  the  result  of  this  call: 

'BP'  =  Bad  Parameters 

'BS'  =  Bad  Sequence  (FDMUTR  not  INITialized) 

'DF'  =  Detach  Failed  (terminal  has  gone  offline) 

TN'  =  Terminal  was  already  disconnected 

'OK'  =  Terminal  is  now  disconnected 

TRMIND  is  the  terminal  index. 

FDDISC  normally  blanks  the  display  on  RT805  i<nd  RT803  terminals.  However,  if  FDDISC  is  called 
with  the  negative  of  the  value  of  TRMIND,  the  last  message  (if  any)  will  be  left  on  the  display  when 
FDDISC  detaches  from  the  terminal.  Note  that,  if  FDDISC  is  called  with  a  negative  value  of 
TRMIND,  then  TRMIND  will  be  complemented  (in  the  caller's  data  space)  by  FDDISC. 
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2.2.6     FDWRIT— Write  Message  To  Terminal 

CALL  "FDWRIT"  USING  RESULT,  TRMIND,  WRCODE,  MSGBUF,  MSGSIZ  [JRANLT] 
[,STATUS]. 

CALL   FDWRIT    BY    REF   (RESULTS,   TRIVIIND%,   WRCODE$,   MSGBUFS,   MSGSIZ% 
I,TRANLT$]  [,STATUS$1) 

CALL  FDWRIT  (RESULT,TRMIND,WRCODE,MSGBUF,MSGSIZ  [,TRANLT]  [,STATUS]) 

FDWRIT  is  used  to  send  a  message  to  a  terminal,  and  WRCODE  determines  what  the  terminal  is  to  do 
with  the  message. 

RESULT  will  contain  the  encoded  result  of  this  call: 


'TN'  =  Terminal  Not  connected 

'EC  =  Bad  Code  (WRCODE  not  recognized) 

'BA'  =  Bad  Address  (of  MSGBUF) 

'BL'  =  Bad  buffer  Length  (MSGSIZ) 

'BT  =  Bad  Terminal  (type  not  compatible  with  command) 

'BS'  =  Bad  Sequence  (terminal  not  idle  or  FDMUTR  not  INITialized) 

'BP'  =  Bad  Parameters  (other  than  BC,BA,BL,BT,BS) 

'OK'  =  Message  queued  successfully 


TRMIND  is  the  terminal  index. 


WRCODE  is  the  encoded  sub-function  designator: 

'DM'  =  Display  Message 

'DG'  --  Digital  output 

'PR"  =  Print  on  external  printer 

'RD'  =  De-energize  Relay  output 

'RE'  =  Energize  Relay  output 

'TM'  =  Store  Time-out  Message 

'FO'  =  DPMOl  Formatted  Output 

'TR'  =  DPMOl  Transparent  output 

WRCODE  = 'DM'  directs  the  message  onto  the  32-character  display  register  of  an  RT805  or  RT803; 
MSGSIZ  must  be  between  1  and  32  characters.  The  message  should  consist  of  printable  ASCII  char- 
acters. 


WRCODE  =  'DG"  directs  the  message  to  the  optional  digital  output  card  of  an  RT805  terminal. 
MSGSIZ  must  be  2  bytes  long,  and  is  interpreted  by  the  RT805  in  hex-ASCII:  a  message  of  '00'  will 
de-energize  all  8  bits  of  digital  output,  and  a  message  of  'FF'  will  energize  all  8  bits  of  digital  output. 

WRCODE  =  'PR'  directs  the  message  to  the  optional  external  printing  device  of  an  RT805.  MSGSIZ 
must  be  between  1  and  133  bytes  of  printable  ASCII  characters,  and  the  first  byte  is  interpreted  by  the 
RT805  as  a  FORTRAN  carriage-control  character: 


Prints  a  normal  single-spaced  line 
C  Prints  a  double-spaced  line 

r  Prints  a  line  preceded  by  a  form  feed 

-}-'        Over-prints  a  line 
$'  Prints  a  prompting  line  (no  trailing  carriage  return) 
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WRCODE  =  'RD'  directs  the  terminal  to  de-energize  the  dry-contact  relay  on  any  RT80x  terminal. 

WRCODE  =  'RE'  directs  the  terminal  to  energize  the  relay.  MSGSIZ  is  irrelevant,  but  must  be  be- 
tween 0  and  999. 

WRCODE  =  TM'  directs  the  RT80x  terminal  to  store  the  message  as  a  time-out  message.  If  FDCTIM 
fails  to  run  or  if  the  host  crashes,  all  RT80x  terminals  will  time-out  and  cease  to  display  the  time-of-day 
(after  about  45  seconds);  RT801  terminals  blank  their  displays;  RT805  and  RT803  terminals  also  blank 
their  displays  unless  they  have  received  a  t  me-out  message  to  display  as  an  alternative  to  a  blank  dis- 
play. Note,  however,  that  if  a  terminal  goes  off-line  (e.g.,  because  of  a  power  transient),  it  will  lose  its 
time-out  message  and  revert  to  a  blank  display. 

WRCODE  =  TO'  commands  the  DPMOl  to  print  this  message  on  the  terminal  in  formatted  output 
mode.  MSGSIZ  must  be  between  1  and  133  bytes  and  the  first  byte  is  interpreted  by  the  DPMOl  as  a 
FORTRAN  carriage-control  character: 


T 
null 


Prints  a  normal  single-spaced  line 

Prints  a  double-spaced  line 

Prints  a  line  preceded  by  a  form  feed 

Over-prints  a  line 

Prints  a  prompting  line  (no  trailing  carriage  return) 

Prints  the  line  without  any  added  carriage-control  bytes;  the  null  byte  is  not  printed 


Note  that  any  carriage-control  character  other  than  the  above  is  treated  as  a  space,  resulting  in  a  single- 
spaced  line. 

WRCODE  =  TR'  commands  the  DPMOl  to  print  this  message  on  the  terminal  in  transparent  mode: 
the  message  is  stored  and  forwarded,  without  interpretation  or  modification.  MSGSIZ  must  be  between 
1  and  133  bytes. 

MSGBUF  is  the  message  buffer,  and  MSGSIZ  is  its  size  (in  bytes). 

TRANLT  is  the  optional  transaction  key  to  backlight.  If  not  specified,  the  light  will  be  the  same  as  the 
transaction  key  last  pressed  on  this  terminal,  or  the  last  value  of  TRANLT  explicitly  specified  in  a 
FDWRIT,  FDREAD,  or  FDPRRD  call.  Most  user  tasks  need  not  use  TRANLT,  as  FDMUTR  does 
the  housekeeping  to  remember  the  transaction  in  progress.  For  DPMOl  terminals,  TRANLT  is  ignored. 

STATUS  specifies  an  optional  temporary  change  to  this  RT80x  terminal's  status: 


STATUS  = 'A' 
STATUS  =  'B' 
STATUS -'D' 
STATUS-*H' 


Backlights  the  RESET  ERROR  key 
Flashes  the  ENTRY  ACCEPT  light 
Flashes  the  ERROR  light 
Sounds  the  alarm 


Combinations  may  also  be  employed,  as  detailed  in  Section  A. 2. 3.  If  not  specified,  the  status  will  be 
null  ('RESET  ERROR',  'ENTRY  ACCEPT,  and  'ERROR'  lamps  off;  alarm  siknt).  For  DPMO!  ter- 
minals, STATUS  is  ignored. 

FDWRIT  will  return  to  the  caller  as  soon  as  the  message  has  been  queued  for  transmission.  If  the  user 
wishes  to  suspend  until  this  write  completes,  FDSTAT  should  be  called  (with  an  STCODE  of  'WT') 
immediately  after  the  FDWRIT  call. 
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2.2.7     FDREAD— Read  Message  From  Terminal 

CALL    "FDREAD"    USING    RESULT,MSGBUF,MSGSIZ,TRMIND,RDCODE    [^TRANLT] 
(,STATrSl. 

CALL    FDREAD    BV    REF   (RESULTS,    MSCBl  F$,   MSGSIZ%,   TRMIND^,    RDCODES 
(,TRANLT$1  l^TATl  S$l) 

C  ALL  FDREAD  (RESl  LT.MSGBl  F,MSGSIZ,TRMIND,RDCODE  (TRANLT)  |,STATIS)) 

I  DRHAD  is  used  to  receive  a  message  from  a  terminal,  and  RDCODE  directs  the  terminal  to  the 
source  of  ihe  message  With  the  exception  of  RDCODE  =  *DG',  each  FDREAD  call  directs  the  termi- 
nal to  request  data  from  the  terminal's  operator;  the  read  will  not  be  completed  until  the  operator  enters 
some  data  or  media. 


The  meanmgs  of  RESULT.  MSGBUF.  MSGSIZ.  TRMIND,  TRANLT.  and  STATUS  are  the  same 
for  FDREAD  as  for  FDWRIT.  The  actual  data  from  the  terminal  is  contained  in  bytes  4  n  of 
MSGBUF.  The  first  four  bytes  of  data  (bytes  0-3)  contain  the  PCBs. 

RDCODE  is  the  encoded  sub-function  designator: 


'DG'  =  Digital  input 

*BD'  =  22-column  T3  Badge 

*HO  =  80-column  Hollerith  card 

*ST  =  22-column  Stub  card  (ticket) 

TK'  =^  Transaction  Key 

'W5'  =  lO-column  T5  badge,  with  local  prompting 

T5'  =  lO-column  T5  badge,  without  local  prompting 

'FO'  =  DPMOI  Formatted  input  with  local  echoing 

'FN'  =  DPMOI  Formatted  input  without  local  echoing 

TR'  =  DPMOI  Transparent  input  with  local  echoing 

TN'  =  DPMOI  Transparent  input  without  local  echoing 

TL'  ---  DPMOI  Translucent  input  with  local  echoing 

*LN'  =  DPMOI  translucent  input  without  local  echoing 

*AT'  =  DPMOI  Attributes 


RDCODE  'DG'  commands  the  RTS05  to  read  its  optional  24  bits  of  digital  input  MSGSIZ  must  be 
10  bytes,  and  the  24  bits  of  data  are  returned  in  the  lasi  6  bytes  of  MSGBUF  in  hex-ASCII  format:  a 
message  of  *00(KK)0'  indicates  that  all  were  at  low  (TTl  )  voltage  levels,  and  a  message  of  *FFFFI  F' 
indicates  that  all  were  at  high  (TTL)  voltage  levels  or  were  floating.  (Refer  to  the  RT80x  hardware 
manual  for  details.) 


RDCODE  ='BD'  commands  the  RTH05  or  RT803  to  guide  i<s  operator  to  insert  a  22-column  badge 
ii.iO  its  T3  reader.  MSGSIZ  must  be  26  bytes,  and  the  data  will  be  read  into  the  last  22  bytes  of 
MS(iBUF 


RDCODE  =^'HO'  commands  the  RTH05  or  RT803  to  guide  its  operator  to  insert  an  KO-column  punch- 
ed Hollerith  card  into  its  r3  reader.  MSGSIZ  must  be  84  bytes,  and  the  data  will  be  read  into  the  last 
80  bytes  of  MSGBUF. 

RDCODE  =  'ST'  commands  the  RT805  or  RT803  to  guide  i«s  operator  to  insert  a  22-colLmn  stub-card 
into  its  T3  reader.  MSCJSIZ  must  be  26  bytes,  and  the  data  will  be  read  into  the  last  22  bytes  of 
MSGBUF. 
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RDCODE  =  'TK'  commands  the  terminal  to  await  depression  of  a  transaction  key  (or  turning  the  key- 
switch  to  the  Supervisory  position).  In  this  case.  MSGBUF  is  irrelevant,  but  must  be  valid;  MSCiSiZ  is 
irrelevant,  but  must  be  between  0  and  999.  The  data  returned  from  the  terminal  is  retained  by 
KDMl  TR.  and  is  accessible  to  the  user  task  (if  desired)  via  CALL  LDSTAT. 


RDCODL  =  'T5'  commands  the  RT805  or  RT80I  to  guide  operator  to  insert  a  lO-column  badge  into  its 
T5  reader.  V1SGSI7  must  be  14  bytes,  and  the  data  will  be  read  into  the  last  10  bytes  of  MSGBUF. 

RDCODL  =  *W5"  commands  the  RT8C5  to  guide  its  operator  to  insert  a  lO-column  badge  into  its  T5 
reader  VISGSIZ  must  be  14  bytes,  and  the  data  will  be  read  into  the  last  10  bytes  of  MSGBl  L.  'W5' 
differs  from  'T5'  because  the  RT805  32-character  display  is  used  to  remind  the  operator  to  remove  the 
badge  after  it  has  been  fully  inserted,  and  because  an  error  message  appears  on  the  32-character  display 
if  the  badge  was  inserted  the  wrong  way.  'W5'  is  generally  more  desirable  for  use  with  an  RT805.  while 
only  *T5'  can  be  used  with  an  RT801. 

RDCODL="fO'  commands  the  DPMOl  to  receive  a  message  from  the  terminal  in  formatted  input 
mode,  and  to  echo  what  it  receives  back  to  the  device.  In  formaiied  input  mode,  data  will  be  accepted 
from  the  device  until  the  DPMOl  buffer  is  full;  until  the  terminal  operator  enters  the  termination  char- 
acters (normally,  carriage  return  or  CTRL/Z);  or  until  the  DPMOl  detects  an  error  condition. 
M.SG.SI/  must  be  between  6  and  137  bytes.  For  the  DPMOl.  buffer  si/e.  default  termination  charac- 
ters (carriage  return  and  CTRL/Z).  and  echo/no  echo  are  statically  established  when  the  DPMOl  is 
do\vn-line  loaded.  In  formatted  input  mode,  the  DPMOl  strips  bit  7  (clears  the  ASCII  parity  bit)  of 
characters  upon  receipt,  before  echoing  the  character  back  to  the  device  and  before  comparing  the 
character  for  validity  or  for  being  a  termination  character.  In  formatted  input  mode,  the  DPMOl  ig- 
nores characters  whose  octal  codes  are  000-010.  013-014.  and  016  037  (unless  one  of  the  codes  repre- 
sents a  termination  character);  that  is.  DPMOl  only  accepts  horizontal  tab.  line  feed,  carriage  return, 
prmtable  ASCII  characters,  and  delete.  When  the  DPMOl  receives  a  termination  character,  it  echoes  a 
carriage  return  character  (if  echoing  is  selected)  regardless  of  what  the  termination  character  was. 

RIXC)DL>=TN"  is  just  like  RDCODF  =  'FO".  except  that  the  data  received  from  the  terminal  i^  ot 
localK  echoed  back  to  the  terminal. 


RDCODE  =  TR'  commands  the  DPMOl  to  read  a  message  from  the  terminal  in  transparent  inode.  In 
transparent  mode,  data  termination  occurs  when  the  DPMOl's  buffer  for  this  terminal  is  filled,  or  there 
is  an  error.  MSGSIZ  must  be  between  6  and  137  bytes.  The  message  received  is  echoed  back  to  the 
terminal.  Note  that  echoing  will  be  suppressed  if  the  no-echo  attribute  was  down-line  loaded. 

RDCODL  -*TN"  is  just  like  RDCODE  =  TR'.  except  that  the  data  received  from  the  terminal  is  not 
localK  echoed  back  to  the  terminal. 


RDCODI- ='TL'  commands  the  DPMOl  to  read  a  message  from  the  terminal  in  translucent  mode.  In 
translucent  mode,  data  termination  occurs  when  the  DPMOl's  buffer  for  this  terminal  is  filled,  or  when 
there  is  an  error,  or  when  one  of  the  termination  characters  (only  the  lower  seven  bits  are  significant)  is 
received.  Translucent  mode  permits  entr\  of  an\  data  character  (bit  7  is  not  stripped  and  Delete  has  no 
special  meaning).  Translucent  mode  may  be  used  to  receive  escape  sequences  from  terminals  or  vari- 
able-length messages  from  non-terminal  devices.  MSGSIZ  must  be  between  6  and  137  bytes  The  mes- 
sage received  is  echoed  back  to  the  terminal.  Note  that  echoing  will  be  suppressed  if  the  no-echo  attri- 
bute was  down-line  loaded. 

RDCODL  =*AT  commands  the  DPMOl  to  read  back  a  string  of  data  which  describes  the  attributes 
which  ha  been  down-line  loaded  (or  the  set  of  default  attributes,  if  down-line  loading  has  not  oc- 
curred). MSCiSIZ  must  be  24  b\tes. 
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The  string  of  data  returned  consists  of  24  bytes,  as  follows: 


Bytes  1-4 

PCB  reply,  which  will  be  'B@@@'. 

Bytes  5-6 

'DO'  for  port  0,  'D3'  for  port  3,  etc. 

Bytes  7-18 

Diagnostic  data. 

Byte  19 

Input  buffer  size  (1-133). 

Byte  20 

First  termination  character.  The  default  value  is  032(8),  which  is 
CTRL/Z. 

Byte  21 

Second  termination  character.  The  default  value  is  015(8),  which  is  car- 
riage return. 

Byte  22 

UART  control  parameters: 

bit  4  defines  stop  bits: 

1    =  double  stop  bits 
0  =   single  stop  bit 


bits  3-2  define  character  length: 


00  =  5  bits 

01  -  6  bits 

10  =  7  bits 

11  =  8  bits 


bits  1-0  define  parity: 

00  =   Generate  and  check  odd  parity 

01  =   Do  not  generate  or  check  parity 

10  =   Generate  and  check  even  parity 

11  =   Do  not  generate  or  check  parity 


Byte  23 


UART  baud  rate: 


bits  3-0  define  baud  rate: 


0000  = 

50 

baud 

0001 

= 

75     baud 

0010  = 

110 

baud 

0011 

^ 

134.5  baud 

0100  = 

150 

baud 

0101 

= 

300    baud 

Olio  = 

600 

baud 

0111 

= 

1200    baud 

1000  = 

1800 

baud 

1001 

= 

2000    baud 

1010  = 

2400 

baud 

1011 

= 

3600    baud 

1100  = 

4800 

baud 

1101 

^ 

7200    baud 

1110  = 

9600 

baud 

1111 

= 

invalid 
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Byte  24 


Device  control  parameters: 


Reserved. 

Do  not  echo  received  data  to  the  device;  this  over-rides  command- 
level  requests  to  echo. 

Marks  this  as  a  priority  device,  which  means  that  the  DPMOl  recog- 
nizes X/OFF  and  X/ON  from  the  device  while  transmitting  to  it. 

Enables  CRT  functions  while  receiving. 


bit  3 

bit  2 

= 

1 

bit  1 

= 

1 

bitO 

= 

1 
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2.2.8     FDPRRD— Write  Prompt,  Read  Message 

CALL  "FDPRRD"  USING  RESULT,  MSGBUF,  MSGSIZ,  TRMIND,  PRCODE,  PROBUF, 
PROSIZ  [,TRANLT]  (,STATUSI. 

CALL  FDPRRD  BY  REF  (RESULTS,MSGBUF,MSGSIZ,TRMIND,PRCODE, 
PROBUF,PROSIZ  (,TRANLT]  [,STATUS]) 

CALL  FDPRRD  (RESULT,MSGBUF,MSGSIZ,TRMIND,PRCODE, 
PROBUF,PROSIZ  (,TRANLT]  [,STATUS1). 

FDPRRD  performs  a  compound  operation:  first  a  prompting  message  is  sent  to  a  terminal,  then  the 
terminal  is  commanded  to  read  back  a  message.  PRCODE  determines  both  what  the  terminal  is  to  do 
with  the  prompting  message,  and  the  source  of  the  read-back  message. 

MSGBUF  is  the  input  buffer  and  MSGSIZ  is  its  size  in  bytes,  PROBUF  is  the  output  buffer  and  PRO- 
SIZ is  its  size  in  bytes.  The  actual  data  from  the  terminal  is  found  in  bytes  4-n  of  MSGBUF.  Bytes  0-3 
are  the  PCBs. 

PRCODE  is  the  encoded  sub-function  designator: 


'QK'  =  Display  Query,  in  from  Keypad 

'QX'  =  Display  Query,  in  from  external  keyboard 

'FK'  =  Display  (fill  in  ?'s)  Form,  in  from  Keypad 

'FX'  =  Display  Form,  in  from  external  keyboard 

'PX'  =  Print  query,  in  from  external  keyboard  and  echo  to  Printer 

'BD'  =  Prompt,  then  read  same  as  FDREAD  'BD'  call 

'HO'  =  Prompt,  then  read  same  as  FDREAD  'HO'  call 

'ST  =  Prompt,  then  read  same  as  FDREAD  'ST  call 

'TK'  =  Prompt,  then  read  same  as  FDREAD  'TK'  call 

'T5'  =  Prompt,  then  read  same  as  FDREAD  'T5'  call 

'W5'  =  Prompt,  then  read  same  as  FDREAD  'W5'  call 

'FO'  =  DPMOI  Formatted  prompt,  then  Formatted  read  with  echo 

'FN'  =  DPMOI  Formatted  prompt,  then  Formatted  read  without  echo 

'TR'  =  DPMOI  Transparent  prompt,  then  Transparent  read  with  echo 

'TN'  =  DPMOI  Transparent  prompt,  then  Transparent  read  without  echo 

'TL'  =  DPMOI  Formatted  prompt,  then  Translucent  read  with  echo 

'LN'  =  DPMOI  Formatted  prompt,  then  Translucent  read  without  echo 


PRCODE -'QK'  directs  the  prompting  message  to  the  32-character  display  of  the  RT805  or  RT803, 
and  commands  the  RT805  or  RT803  to  accept  data  from  the  operator  via  the  numeric  keypad  on  the 
front  of  the  terminal.  The  prompting  message  appears  lef -justified  on  the  display,  and  data  entered  by 
the  operator  will  appear  on  the  display  to  the  right  of  Iht  prompting  message;  the  data  entered  by  the 
operator  will  not  be  sent  back  to  the  user  task  until  the  operator  pushes  SEND.  PROSIZ  must  be  be- 
tween I  and  32  bytes,  and  MSGSIZ  must  be  36  bytes;  the  N  bytes  of  data  entered  by  the  operator  will 
be  read  back  into  the  user  task  area  from  MSGBUF-f  4  through  MSGUF  +  N  +  4.  The  user  task  can 
determine  the  number  of  bytes  of  data  entered  by  the  operator  by  calling  FDSTAT;  word  five  of  STA- 
VEC  will  contain  N+4.  For  example,  if  the  prompting  message  is  'ENTER-SHIFT:',  and  the  operator 
enters  '2',  the  display  will  show  'ENTER-SHIFT:2',  and  the  ASCII  '2'  will  be  returned  in 
MSGBUF +  4.  Note  that,  since  the  prompting  message  and  the  data  entered  by  the  operator  will  be 
simultaneously  displayed  on  the  terminal,  the  total  size  of  the  prompting  message  plus  the  longest  ex- 
pected reply  must  be  no  more  than  32  bytes. 
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PRCODE  =  'QX'  is  analogous  to  'QK',  except  that  data  entry  is  via  the  optional  external  keyboard 
device  (such  as  an  LA36  or  LK40)  instead  of  the  keypad;  accordingly,  'QX'  is  only  applicable  to  an 
RT805  with  this  option.  For  'QX',  the  operator  action  which  causes  the  terminal  to  send  data  entered 
back  to  the  CPU  is  the  keyboard's  carriage-return  key,  instead  of  the  keypad-associated  SEND  key. 

PRCODE  =  'FK'  directs  the  prompting  message  to  the  32-character  display  of  the  RT805  or  RT803, 
and  commands  the  RT805  or  RT803  to  accept  data  from  the  operator  via  the  numeric  keypad  on  the 
front  of  the  terminal.  In  this  mode,  the  data  entered  will  overwrite  the  question  marks  which  occurred 
in  the  prompting  message.  PROSIZ  must  be  between  I  and  32  bytes,  and  MSGSIZ  must  be  36  bytes; 
the  N  bytes  of  data  entered  by  the  operator  will  be  read  back  as  'QK'.  For  example,  if  the  prompting 
message  is  'SHIFT  =  ?,PRESS  =  '??',  and  the  operator  enters  *123\  the  display  will  show 
'SHIFT=1.PRESS  =  23\  and  the  ASCII  '123'  will  be  returned  in  MSGBUF  +  4  through 
MBGBUF  +  6. 

PRCODE  =  'FX'  is  analogous  to  'FK',  except  that  data  entry  is  via  the  optional  external  keyboard  de- 
vice instead  of  the  keypad;  accordingly,  'FX'  is  only  applicable  to  an  RT805  with  the  option.  For  'FX', 
the  operator  action  which  cause:,  the  terminal  to  send  data  entered  back  to  the  CPU  is  the  keyboard's 
carriage-return  key,  instead  of  the  keypad-associated  SEND  key. 

PRCODE^'PX'  directs  the  prompting  message  to  the  optional  external  keyboard/printer  device  (such 
as  the  LA36)  attached  to  the  RT805,  and  commands  the  RT805  to  read  data  back  from  it.  The  first 
byte  of  the  prompting  message  is  interpreted  by  the  terminal  as  a  carriage-control  byte,  and  should 
always  be  a  '$'.  PROSIZ  must  be  between  1  and  133,  and  MSGSIZ  must  be  84.  For  example,  if  the 
prompting  message  is  '$WHO-ARE-YOU?>',  and  the  operator  types  in  'SAM',  the  line  on  the  exter- 
nal device  will  appear  as  'WHO-ARE-YOU?>SAM',  and  the  ASCII  'SAM'  will  appear  in 
MSGBUF  +  4  through  MSGBUF  +  6.  As  for  'QX'and  'FX',  the  sending  back  of  data  is  invoked  by  the 
external  device's  carriage-return  key. 

PRCODE  =  'BD',  'HO',  'ST',  and  'TK'  are  analogous  to  FDREAD  calls  with  the  corresponding 
RDCODE,  except  that  the  data  reading  is  preceded  by  a  prompting  message  directed  to  the  32-charac- 
ter display  of  the  RT805  or  RT803.  PROSTZ  must  be  between  1  and  32  bytes,  and  the  ranges  for 
MSGSIZ  are  the  same  as  those  for  the  equivalent  RDREAD  calls  (26  or  84  bytes). 

PRCODE  =  'T5'  and  'W5'  are  analogous  to  FDREAD  calls  with  the  corresponding  RDCODE.  except 
that  the  prompting  message  is  directed  to  the  32-character  display  of  the  RT805  prior  to  the  data  being 
read.  PROSIZ  must  be  between  1  and  32  bytes,  and  MSGSIZ  must  be  14  bytes. 

PRCODE  =  'FO'  commands  the  DPMOl  to  print  the  prompting  message  on  the  terminal  in  formatted 
output  mode,  and  then  receive  a  response  message  in  formatted  input  mode  (with  local  echoing).  PRO- 
SIZ must  be  between  I  and  133  bytes,  and  MSGSIZ  must  be  between  6  and  137  bytes.  The  first  byte 
of  the  prompting  message  is  interpreted  by  the  DPMOl  as  a  carriage-control  byte,  and  should  always  be 
a  '$'. 

PRCODE  =  'FN'  is  like  PRCODE  =  'FO',  except  that  the  message  received  from  the  terminal  is  not 
echoed  back  to  the  device. 

PRCODE  =  'TR'  commands  the  DPMOl  to  print  the  prompting  message  on  the  terminal  in  transparent 
output  mode,  and  then  receive  a  response  message  in  transparent  input  mode  (with  local  echoing). 
PROSIZ  must  be  between  1  and  133  bytes,  and  MSGSIZ  must  be  between  6  and  137  bytes. 

PRCODE^-'TN'  is  like  PRCODE  =  'TR',  except  that  the  message  received  from  the  terminal  is  not 
echoed  back  to  the  device. 
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PRCODE  =  TL'  commands  the  DPMOl  to  print  the  prompting  message  on  the  terminal  in  formatted 
output  mode,  and  then  receive  a  response  message  in  translucent  input  mode  (with  local  echoing).  PRO- 
SIZ  must  be  between  1  and  133  bytes,  and  MSGSIX  must  be  between  6  and  137  bytes.  The  first  byte 
of  the  prompting  message  is  interpreted  by  the  DPMOl  as  a  carriage-control  byte,  and  should  always  be 
a  '$'. 

PRCODE  =  'LN'  is  like  PRCODE  =  TL\  except  that  the  message  received  from  the  terminal  is  not 
echoed  back  to  the  device. 
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2.2.9     FDW  A  IT— Suspend  Task  and  Wait  For  Terminal 

CALL  »*FDWAir'  USING  WHOIND. 

CALL  FDWAIT  BY  REF  (WHOiND%) 

C  ALL  FDWAIT  (WHOIND) 

This  call  is  used  by  mulii-ihreaded  tasks.  It  will  suspend  the  task  until  one  of  the  terminals  currently 
executing  an  FDWRIT.  FDREAD.  or  FDPRRD  completes.  Upon  completion,  control  will  be  returned 
to  the  point  following  the  CALL  FDWAIT.  and  WHOtND  will  contain  the  index  to  th*!  terminal  which 
has  completed.  If  no  transfers  were  pending.  FDWAIT  will  return  immediately  with  WHOIND  =  -  i. 

If  none  of  the  transfers  complete,  FDWAIT  will  return  to  the  user  every  10  (>0  seconds  with 
WHOIND  =  0.  to  allow  the  calling  task  to  check  for  completion  of  I/O  queued  to  other  devices  or  to 
initiate  error  recovery  procedures. 


2-17 


2.2.10     FDSTAT— Get  Status  Vector 

CALL  -FOSTAT"  I  SING  STAVEC,  TRMIND,  MSGBLF  (.STCODEJ  (,SCOt NT). 

CALL  FDSTAT  BY  REF  (STAVECS,  TR!V1IND%,  MSGBLFS  (,STC0DE$1  (,SCOLNT%]) 

CALL  FDSTAT  (STAVEC,  TRMIND,  MSGBL  F  I,STC0DE1  [,SCOtNTl) 

After  completing  an  FDWRIT,  FDREAD.  or  FDPRRD  operation  (successfully  or  not),  FDSTAT  must 
be  called  prior  to  attempting  the  next  such  operation.  Calling  FDSTAT  will  cause  the  state  of  this 
terminal  to  be  returned  to  idle  ('ID')  which  is  a  prerequisite  for  initiating  another  transfer  operation. 

FDSTAT  may  be  used  to  determine  the  present  status  of  the  designated  terminal,  or  it  may  be  used  to 
suspend  thi>^  task  until  the  designated  terminal  completes  a  pending  transfer,  which  will  invoke 
FDML  TR"s  post-transfer  housekeeping. 

TRMIND  has  the  same  meaning  as  for  all  FDMLl  R  calls. 

MSGBl  K  is  the  message  buffer  used  in  the  last  call  to  FDWRIT.  FDREAD.  or  FDPRRD:  MSGBLF 
is  not  alvsays  inspected  by  FDSTAT.  but  should  always  be  passed. 

STCODF  is  the  encoded  sub-function  designator. 

•WT"  =  Wait  for  designated  terminal  to  complete  its  pending  transfer.  With  STCODH  =  'WT'. 
FDST.AT  will  never  return  until  the  transfer  is  completed;  this  differs  from  the  task 
suspension  invoked  by  FDWAIT. 

'NC     =     No  Change;  just  return  the  Status  Vector.  This  is  only  intended  for  testing. 

'RT'  =  Return  to  caller  if  a  transfer  is  still  pending,  if  a  transfer  has  been  completed,  perform 
the  post-transfer  housekeeping  before  returning.  If  STCODE  is  not  specified.  *RT'  is 
the  assumed  default. 
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SCOL  NT  defines  the  number  of  elements  of  the  status  vector  which  the  user  wants  to  inspect.  If 
SCOLNT  is  not  included,  the  default  value  is  1.  If  SCOLNT  exceeds  the  size  of  the  complete  vector, 
the  complete  vector  will  be  returned  (10  20  words). 

STAVFC  is  the  address  of  the  array  to  receive  the  vector. 

Word  one  of  STAVFC  (Figure  2-1 )  is  the  transfer  summary  status,  which  will  be  one  of  the  folhming: 

'BS'      =     Bad  Sequence  (FDMLTR  not  INITiali/ed). 

*TN'     =     Terminal  Not  connected. 

'ID"      =      Idle     no  transfers  pending. 

'AC     =     Active  -transfer  currently  pending. 

QF     =     Last  transfer  terminated  due  to  QiO  Failure  or  due  to  DPMOl  L  ART/FIFO  error. 

'QR'     =     Last  transfer  terminated  due  to  QIO  Rejection  by  RSX-!  I  M. 

'CA'  =  Last  transfer  completed  successfully  but  transaction  CANCFLed  by  the  RT80\  oper- 
ator. 

'IR'  =  Last  transfer  completed  successfully,  but  its  command  was  declared  invalid  b\  the 
RT80X  or  DPMOl  logic. 

'OK'     =     Last  transfer  completed  successfully. 
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BYTE 


lo 

VD 


WORD  1 


WORD  2 


WORD  3 


WORD  4 


WORD  5 


WORD  6 


WORD  7 


TRANSFER  SUMMARY  STATUS 


SUCCESS  OR  ERROR  CODE 


BYTE  COUNT 


SUCCESS  OR  ERROR  CODE 
(ADDITIONAL  DATA,  DRMd) 


BYTE  COUNT 
(DATA  AND  PCB) 


CONFIGURATION  BYTES 


KEY  CODE  OR  LAST 
VALUE  OF  TRANLT 
(RTBOx  ONLY) 


I/O  STATUS 
y BLOCK 
(FIRST  010) 


I/O  STATUS 
>- BLOCK 
(SECOND  QIO) 


A       TWO  QIOS 


BYTE 


1                 "                 0                  ■ 

WORD  1 

TRANSFER  SUMMARY  STATUS 

WORD  2 

+  1 

WORD  3 

0 

WORD  4 

SUCCESS  OR  ERROR  CODE 
(ADDITIONAL  DATA,  DPM01) 

WORD  5 

BYTE  COUNT 
(DATA  AND  PCB) 

WORD  6 

CONFIGURATION  BYTES 

WORD  7 

• 

.   KEY  CODE  OR  LAST 

VALUE  OF  TRANLT 
•   (RTBOx  ONLY) 

• 

DUMMY 
SUCCESS  CODE 


I/O  STATUS 
BLOCK 


B       ONE  QIO 


BU  no3 


Figure  2-1     STAVEC  Word  Format 


Words  two  and  three  of  STAVEC  are  the  I/O  Status  Block  corresponding  to  the  first  QIO  issued  as  a 
result  of  the  last  FDWRIT,  FDREAD,  or  FDPRRD  call.  Words  four  and  five  of  STAVEC  are  the  I/O 
Status  Block  corresponding  to  the  second  QIO  issued  as  a  result  of  the  last  data  transfer  call.  Note  that, 
if  a  data  transfer  call  only  results  in  FDMUTR  issuing  one  QIO.  words  two  and  three  will  indicate  a 
dummy  success  code  (IS.SUC),  and  words  four  and  five  will  contain  valid  data.  Only  FDWRIT  calls 
with  WRCODE  =  'RE'  or  'RD'  and  FDREAD  calls  are  accomplished  with  a  single  QIO.  Also  note 
that  words  three  and  five  contain  the  counts  of  the  number  of  bytes  transferred  by  the  corresponding 
QIOs;  for  FDREAD  and  FDPRRD  calls  which  return  data  to  the  user  task,  word  five  of  STAVEC 
contains  N+4,  where  N  is  the  amount  of  useful  data  returned. 


For  DPMOl  terminals,  word  four  contains  additional  information  in  regard  to  the  reason  for  termi- 
nating this  transfer: 


IS.SUC 
IS.CR 
IE. EOF 
IS. XXX 


lE.IFC 

lE.VER 
lE.EOV 

lE.FHE 


Input  ended  due  to  DPMOl  buffer  full. 
Input  terminated  by  Carriage  Return. 
Input  terminated  by  CTRL/Z. 

Input  terminated  by  a  user-defined  termination  character  other  than  car- 
riage return  or  CTRL/Z.  In  this  case,  the  success  code  ( +  1 )  will  appear 
in  the  low  byte,  and  the  termination  character  will  appear  in  the  high 
byte. 

Illegal  Function  Code.  Returned  by  the  DPMOl  in  response  to  any  PCB 
command  which  it  does  not  recognize. 

Non-recoverable  Error.  UART  found  parity  error  during  input. 
End-Of-Volume.    UART   found   framing  error  during   input;   may   be 
caused  by  the  BREAK  key  found  on  some  terminals. 
Fatal  Hardware  Error.  UART/silo  overrun  error;  may  be  caused  by 
DPMOl  baud  rates  set  too  high. 


For  lE.VER,  lE.EOV,  and  lE.FHE.  the  first  input  character  which  the  DPMOl  found  in  error 
will  be  the  last  character  returned  to  the  host.  This  bad  character  is  pointed  to  bv  word  five  of 
STAVEC. 

Word  six  of  STAVEC  contains  the  configuration  bytes  which  describe  this  terminal: 

1.  For  FDM  terminals,  the  first  byte  defines  the  type  of  terminal  (A  =  RT801.  B  =  RT803, 
C  =  RT805;  other  =  non-RT80x),  and  the  second  byte  defines  any  RT805  optional  modules 
installeu  in  the  terminal  (fe  =  none,  A  =  serial  module,  B  =  digital  I/O  module,  C  =  serial 
module  plus  digital  I/O  module,  other  =  broken  terminal). 

2.  For  terminal  multiplexers,  the  first  byte  is  a  *D'  indicating  a  DPMOl  is  responding;  the  sec- 
ond is  an  ASCII  number  from  0  to  3  indicating  the  relative  port  number  within  the  DPMOl. 

The  low-order  byte  of  word  seven  of  STAVEC  contains  the  key  code  for  the  last  transaction  key  pressed 
on  this  terminal,  or  the  last  value  of  TRANLT  explicitly  specified  in  an  FDWRIT.  FDREAD.  or 
FDPRRD  call.  Word  seven  is  not  meaningful  for  DPMOl -connected  terminals. 
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2.3  TASK  BUILDING  WITH  FDMUTR 

Tasks  which  use  FDMUTR  (or  FDMUTX  or  FDMUTG)  must  be  linked  to  FDMUTR  and  to 
FDMSUB,  which  is  a  set  of  secondary  subroutines  used  by  FDMUTR.  This  linkage  is  established 
through  TKB  (the  task  builder),  as  illustrated  in  Sections  2.6,  2.7,  and  2.8. 

Tasks  written  in  COBOL  to  use  FDMUTR  will  need  to  link  to  these  subroutines  using  two  of  the  fol- 
lowing overlay  description  files: 

FDMUTR.ODL  or  FDMUTX.ODL  or  FDMUTG.ODL 

and 
FDMSUB.ODL 
Use  of  these  .ODL  files  is  illustrated  in  Section  2.6. 

2.4  FDMUTR  GLOBAL  NAMES 

FDMUTR  (or  FDMUTX/FDMUTG)  and  FDMSUB  jointly  make  known  to  the  task  builder  a  set  of 
global  names,  each  six  characters  long,  starting  with  'FD'.  The  set  of  names  is: 


FDASLN 

FDCONN 

FDMUTR 

FDDISC 

FDGETB 

FDGLUN 

FDGTIM 

FDINIT 


FDIOWT 

FDLOCA 

FDNUMA 

FDPRRD 

FDQATT 

FDQDET 

FDQKIL 

FDQRPC 


FDQWPC 

FDREAD 

FDSTAT 

FDWAIT 

FDWRIT 

FDWSIG 

FDXHIB 

FDXLOB 


2.5    APPLICATION  NOTES  ON  FDMUTR 

FDMUTR  is  neither  re-entrant  nor  shareable.  Each  user  task  has  its  own  copy  of  FDMUTR  and 
FDMSUB. 

Since  FDMUTR  contains  impure  data,  tasks  which  include  FDMUTR  and  FDMSUB  in  an  overlay 
segment  must  ensure  that  that  segment  is  not  overlaid  while  any  FDM  terminals  are  active  or  even 
connected  (via  FDCONN)  to  the  task.  Also,  FDMUTR  and  FDMSUB  must  be  in  the  same  segment. 

FDMUTR  and  FDMSUB  do  not  use  any  RSX-1 IM  event  nags. 

FDMUTR  does  not  offer  support  for  event  flags  or  for  asynchronous  system  traps. 

Upper  bounds  on  the  memory  requirements  of  FDMUTR  (in  decimal)  are: 

•  FDMUTR  +  FDMSUB  =   3600  words 

•  FDMUTX  +  FDMSUB  =  4200  words 

•  FDMUTG  +  FDMSUB  =  6200  words 
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All  messages  sent  or  received  through  FDMUTR  must  begin  on  word  boundaries.  Output  messages 
may  contain  an  odd  number  of  bytes.  Input  messages  may  also  contain  an  odd  number  of  bytes;  if  so, 
the  byte  following  the  message  will  be  modified  and  will  not  necessarily  contain  a  printable  ASCII 
character. 

It  is  more  efficient,  both  in  memory  used  and  in  execution  time  used,  to  have  one  task  in  memory  which 
handles  many  FDM  terminals  than  to  have  many  tPsVs  in  memory  which  handle  a  few  terminals  each. 
Maximum  efficiency  will  occur,  of  course,  when  tasks  i^^side  on  disk  until  needed. 

Calling  FDDISC  for  an  RT803  or  an  RT805  may  not  clear  the  terminal's  display  if  it  was  active 
(status -'AC'). 

FDMUTR  only  supports  FDM  terminals  which  are  connected  to  the  host  system  via  DECdataways. 

The  FDWAIT  keep-alive  return  (with  WHOIND:==0)  may  be  too  infrequent  to  satisfy  some  appli- 
cations, such  as  multi-threaded  tasks  invoked  via  the  FDM  Dispatcher.  If  desired,  the  keep-alive  return 
interval  may  be  decreased  at  a  nominal  increase  in  processor  utilization  by  rebuilding  the  application 
task  using  the  following  global  patches: 

GBLPAT  =  segname:FDWAIT  +  074:02 
GBLPAT-segname:FDWAlT+  104:04 
GBLPAT  =  segname:FDWA!T+  122:02 
GBLPAT-segname:FDWAIT+ 136:06 

The  keep-alive  return  interval  may  be  further  decreased  with  a  further  increase  in  processo.  utilization, 
by  replacing  the  first  global  patch  with: 

GBLPAT  =  segname:FDWAIT  +  074:0] 

If  the  global  patches  already  described  do  not  result  in  response  times  that  are  fast  enough,  it  may  be 
necessary  to  replace  the  call  to  FDWAIT  with  a  procedure  to  call  FDSTAT  (with  STCODE=='RT')  for 
each  active  terminal.  This  will  result  in  very  fast  response  times;  however,  processor  utilization  will 
increase  substantially. 

The  application  programmer  can  further  enh  nee  accuracy  of  the  T5  badge  reader  by  incorporating 
data  validity  checks  in  his  program.  For  example,  the  system  designer  may  include  check  digits  in  T5 
badges  or  a  test  of  badge  content  against  a  file  resident  on  the  DPM  host. 


• 


• 
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2.6    SAMPLE  COBOL  TASK  USING  FDMUTR 


I 

!  THIS    IS    SAMCOB.CMD,    WHICH    PRODUCES    A    SAMPLE    TASK    WHICH 

!  ACCESSES    AN    RT803    OR    RT805    TERMINAL    VIA    FDMUTR. 

I 

CBL  SAMPLE, SAMPLE=SAMPLE 

! 

!  SUGGESTED    ANSWERS    TO    CBLMRG    ARE    AS    FOLLOWS    - 

•  SAMCOB.ODL,    M,    N,    SAMPLE. ODL,    <CR> ,    Y, 

!  FDMUTR. ODL,     [7,7],    Y,     FDMSUB.ODL,     [7,7j,    N 

RUN  $CBLMRG 

TKB  SAMCOB,SAMCOB/NOSP=SAMCOB/MP 

.IFINS  SAMCOB  REM  SAMCOB 

INS  SAMCOB 

THIS  IS  SAMCOB. TKB,  USED  BY  SAMCOB.CMD 

SAMCOB , SAMCOB/SH/NOSP=SAMCOB/MP 

/ 

// 

BELOW  LIES  SAMCOB.ODL,  PRODUCED  BY  CBLMRG. 

MERGED  ODL  FILE  CREATED  ON  31-AUG-77  AT  09:lf.:06 

COBOL  STANDARD  ODL  FILE  GENERATED  ON:  31-AUG-77    09:15:19 

COBOBJ=SAMPLE.OBJ 

COBMAIN 

COBOL  STANDARD  ODL  FILE  GENERATED  ON:  28-APR-77    15:50:50 

COBOBJ=FDMUTR.OBJ 

COBOL  STANDARD  ODL  FILE  GENERATED  ON:  28-APR-77    15:50:50 

COBOBJ=FDMSUB,OBJ 
CBOBJS:         . FCTR  SAMPLE . OBJ- [7 , 7 ] FDMUTR . OBJ- [7 , 7 ] FDMSUB . OBJ 
CBOTS$:         .FCTR  [ 1 , 1 ] COBLI B/LB 
RMS$:  .FCTR   [ 1 , 1] RMSLIB/LB 

OBJRTS:         .FCTR  CBOBJ$-CBOTS$-RMS$ 
.ROOT  OBJRTS 
.END 
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COBOL  3.00   SRC:SAMPLE.CBL;57 

CMD:SAMPL2,SAMPLE=SAMPLE 
IDENT:   243092 


31-AUG-77   09:15:19  PAGE  001 


00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
k>0039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 


IDENTIFICATION  DIVISION. 
PROGRAM-ID.   SAMPLE. 

REMARKS.   THIS  IS  A  SAMPLE  TASK  WHICH  USES  AN  RT803  OR  RT305, 
WHICH  MUST  BE  SBl:.   SAMPLE  READS  TRANS.  KEYS, 
LIGHTS  THEIR  LIGHTS,  AND  DISPLAYS  THE  KEY  NUMBER. 

ENVIRONMENT  DIVISION. 
CONFIGURATION  SECTION. 
SOURCE-COMPUTER.   PDP-11-70. 
OBJECT-COMPUTER.   ANY-DPM-SYSTEM 


DATA  DIVISION. 
WORKING-STORAGE 


SECTION. 


77    LOGICAL-UNIT-NUMBER    PIC    99   COMP    VALUE    ' 
77    TERMINAL-INDEX    PIC    99    COMP    VALUE    1. 
77    SERIAL-BUS-Ai>ORESS    PIC    99    COMP    VALUE    1 
77    MAXIMUM-TERMINAL    PIC    99    COMP    VALUE    1. 

77    RESULTl    PIC    XX    VALUE    " ". 

77    ONE    PIC    99    COMP    VALUE    1. 

77    SEVEN    PIC    99    COMP    VALUE    7. 

77    THIRTY-TWO    PIC    19   COMP    VALUE    32. 

77    READ-TRANS-KEY    PIC    XX    VALUE    "TK" . 

77    WAIT    PIC    XX    VALUE    "WT" . 

01    STATUS-VECTOR. 

0  3    STATUS  1    PIC    XX    VALUE    " ". 

0  3     IGNORED    PIC    XXXXXXXXXX. 

03    KEYl    PIC    X. 

0  3    DONTCARE    PIC    X. 


n    MESSAGE-IMAGE. 

03    FIXED-ONE    PIC    X(13)    VALUE 
03    NEWKEY    PICTURE    X    VALUE    "     ' 
03    FIXED-TWO    PICTURE    X(18) 

VALUE    ", 


LAST    KEY   WAS 


PUSH    NEW   TRA-KEY' 
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COBOL  3. 

.00   SRC:SAMPLE.CBL;57          31-AUG-77   09:15:19  PAGE  002 

M 

i       00051 

V 

'   00052 

00053 

00054 

00055 

00056 

00057 

PROCEDURE  DIVISION. 

("0058 

BEGIN. 

00059 

^ 

00060 

CALL  "FDINIT"  USING  RESULTl,  MAXIMUM-TERMINAL. 

00061 

IF  RESULTl  NOT  =  "OK"   GO  TO  END-JOB. 

00062 

00063 

CALL  "FDCONN"  USING  RESULTl,  TERMINAL-INDEX, 

00064 

SERIAL-BUS-ADDRESS, 

• 

03065 

LOGICAL-UNIT-NUMBER. 

00066 

IF  RESULTl  NOT  =  "OK"   GO  TO  END-JOB. 

00067 

00068 

ETERNAL-LOOP. 

00069 

^^ 

00070 

CALL  "FDPRRD"  USING  RESULTl,  MESSAGE-IMAGE,  ONE, 

A 

1    00071 

TERMINAL-INDEX,  READ-TRANS-KEY, 

00072 

MESSAGE-IMAGE,  THIRTY-TWO. 

00073 

IF  RESULTl  NOT  =  "OK"   GO  TO  END-JOB. 

00074 

00075 

CALL  "FDSTAT"  USING  STATUS-VECTOR,  TERMINAL-INDEX, 

00076 

MESSAGE-IMAGE,  WAIT,  SLVEN. 

00077 

00078 

IF  STATUSl  =  "CA"  AND  KEYl  =  "J"   GO  TO  SUPER-KEY. 

00079 

IF  STATUSl  NOT  =  "OK"   GO  TO  END-JOB. 

00080 

^^ 

00081 

MOVE-KEY. 

A 

1    00082 

V 

'    00083 

IF  KEYl  =  "A"   MOVE  " 1 "  TO  NEWKEY. 

00084 

IF  KEYl  =  "B"   MOVE  "2"  TO  NEWKEY. 

00085 

IF  KEYl  =  "C"   MOVE  "3"  TO  NEWKEY. 

00086 

IF  KEYl  =  "D"   MOVE  "4"  TO  NEWKEY. 

00087 

IF  KEYl  =  "E"   MOVE  "5"  TO  NEWKEY. 

00088 

IF  KEYl  =  "F"   MOVE  "6"  TO  NEWKEY. 

00089 

IF  KEYl  =  "G"   MOVE  "7"  TO  NEWKEY. 

00090 

IF  KEYl  =  "H"   MOVE  "8"  TO  NEWKEY. 

00091 

IF  KEYl  =  "I"   MOVE  "B"  TO  NEWKEY. 

^ 

00092 

A 

1    00093 

SUPER-KEY. 

V 

'    00094 

00095 

IF  KEY1=  "J"   MOVE  "S"  TO  NEWKEY. 

00096 

GO  TO  ETERNAL-LOOP. 

00097 

00098 

END-JOB. 

» 

00099 

00100 

CALL  "FDDISC"  USING  RE3ULT1,  TERMINAL-INDEX. 

• 

00101 

1 

STOP  RUN. 
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2.7    SAMPLE  FORTRAN  TASK  USING  FDMUTR 


I 
I 
I 
1 

F4P  SAMFOR , SAMFOR/NOSP=SAMPLE/TR :NONE 
TKB  eSAMFOR.TKB 
.IFINS  SAMFOR  REM  SAMFOR 
INS  SAMFOR 


THIS  IS  SAMFOR.CMD,  WHICH  PRODUCES  A  SAMPLE  TASK  WHICH 
ACCESSES  AN  RT803  OR  RT805  TERMINAL  VIA  FDMUTR. 


I 


THIS  IS  SAMFOR. TKB,  USED  BY  SAMFOR.CMD 


SAMFOR/NOFP, SAMFOR/N0SP=SAMF0R , FDMUTR , FDMSUB 

[1,1]F4PNI0, [1,1]F4PNER 

[1,1]F4PEIS/LB 

[1,11SYSLIB/LB 

/ 

ACTFIL=0 

UNITS=1 

MAXBUF=0 

FMTBUF=0 

STACK=28 

// 
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FORTRAN  IV-PLUS  Y02-05 
SAMPLE. FTN    /WR 


08:53:08 


31-AUG-77 


PAGE  1 


0001 


0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 


C 
C 
C 

c 

c 


PROGRAM    SAMPLE 

THIS    IS    A    SAMPLE    TASK   WHICH    USES    A    RT803    OR    RT805,    WHICH    MUST 
BE    SBl:.       SAMPLE    READS    TRANS. KEYS,     LIGHTS    THEIR    LIGHTS,    AND 
DISPLAYS    THE    KEY    NUMBER. 


IMPLICIT    INTEGER*2     (A-Z) 

PARAMETER    LUN=1 

PARAMETER    TRM=1 

PARAMETER  SBA=1 

PARAMETER  MAXTRM=1 

PARAMETER  CRT=2 

INTEGER*2  STAVEC(7) 

BYTE    MESAGE(32),    KEY,KEY2 

INTEGER*4    MESIMG(8) 

EQUIVALENCE  (MESAGE ,MESIMG) , (KEY, STAVEC (7 ) ) , (STATUS , STAVEC( 1 ) ) 


LOGICAL  UNIT  NUMBER 

TERMINAL  INDEX 

SERIAL  BUS  ADDRESS  (DEV. NUMBER) 

MAXIMUM  NUMBER  OF  TERMINALS  TO  USE 

LUN  FOR  CRT  (TI :) 

STATUS  VECTOR 


0012 
0013 

0014 
0015 
0016 
0017 

0018 
0019 


C 
C 

D 

C 

D 

C 
C 

c 

500 

D 


DATA    MESIMG/'LAST' ,'KEY' ,'WAS' ,' ,' 

,'PUSH' ,'NEW' ,'TRA' ,'-KEY'/ 
DATA    RESULT, STATUS/'        ','        '/ 


CALL    FDINIT    (RESULT  ,MAXTRM)  UNITIALIZE    FDMUTR 

IF     (RESULT. NE. 'OK* )       WRITE     (CRT, 999)     'IN', 'IT',    RESULT, STATUS 

IF    (RESULT.NE.'OK* )      GO   TO    800       !    BUMMER;    BAIL    OUT 

CALL    FDCONN     (RESULT ,TRM , SBA , LUN)     !    CONNECT    TRM-LUN-SBl: 

IF     (RESULT. NE. 'OK' )       WRITE     (CRT, 999)     'CO','NN',    RESULT, STATUS 

IF    (RESULT.NE.'OK' )      GO   TO    800       !    BUMMER;    BAIL    OUT 

ETERNAL    LOOP    BEGINS    HERE. 

CALL    FDPRRD    (RESULT , MESAGE , 1 , TRM ,' TK' , MESAGE , 32)     1    PROMPT+READ 
IF    (RESULT.NE.'OK')       WRITE     (CRT, 999)     ' PR' , 'RD' , RESULT, STATUS 
IF    (RESULT.NE.'OK')      GO   TO    800       !    BUMMER;    BAIL    OUT 


0020 
0021 


0022 

0023 
0024 
0025 
0026 


0027 


0028 


D 
C 

600 

C 

C 

800 

D 

D999 


CALL    FDSTAT    (STAVEC , TRM, MESAGE ,' WT' -7)     !    WAIT    FOR    OPR'R    FINGER 
IF    (STATUS. EQ. 'CA'     .AND.    KEY.EQ.'J')  !    SPECIAL    CASE    - 

GO    TO    600    !    TRANS.    CANCELLED    BY    SUPERVISORY    KEY. 
IF    (STATUS.NE.'OK' )       WRITE     (CRT, 999)     'ST' , 'AT' , RESULT, STATUS 
IF    (STATUS.NE.'OK')      GO   TO    800       !    BUMMER;    BAIL    OUT 


MESAGE(14)  =  KEY  -  '@'  +  '0' 
IF  (KEY.EQ.'I')  MESAGE(14)  = 
IF  (KEY.EQ.'J')  MESAGE(14)  = 
GO    TO    500 


'B' 
•S' 


RT80  3  TRAN-KEY 
SUPERVISORY  KEY 


CALL  FDDISC  (RESULT, TRM) 

IF  (RESULT.NE.'OK')   WRITE  (CRT, 999) 


'DI'  ,'SC' 


FORMAT  ( ' 
END 


, RESULT, STATUS 


SAMPLE  CALLED 


FD' ,2A2,' , 


RESULT/STATUS  = ' , 1A2 , ' / ' , 1A2) 
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2.8    SAMPLE  MACRO  TASKS  USING  FDMUTR 


# 


THIS  IS  SAMMACCMD,  WHICH  PRODUCES  A  SAMPLE  TASK  WHICH 
ACCESSES  AN  RT803  OR  RT805  TERMINAL  VIA  FDMUTR. 


! 
I 
1 
1 

MAC  SAMMAC,SAMMAC/NOSP=SAMPLE 
TKB  eSAMMAC.TKB 
. I  FINS  SAMMAC  REM  SAMMAC 
INS  SAMMAC 


THIS  IS  SAMMAC. TKB,  USED  BY  SAMPLE.CMD 


SAMMAC/NOFP , SAMMAC/NOSP=S AMMAC , FDMUTR , FDMSUB 

(1,1]SYSLIB/LB 

/ 

ACTFIL=0 

UNITS=1 

MAXBUF=0 

FMTBUF=0 

STACK=28 

// 
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SAMPLE  -  FDM  SAMPLE  DEMO  TASK    MACRO  Mil 


31-AUG-77  10:09   PAGE  1 


.TITLE 
. I  DENT 


SAMPLE  -  FDM  SAMPLE  DEMO  TASK 
/V01.1/ 


THIS  IS  A  SAMPLE  TASK  WHICH  USES  A  RT803  OR  RT805,  WHICH  MUST 
BE  SBl:.   SAMPLE  READS  TRANS. KEYS,  LIGHTS  THEIR  LIGHTS,  AND 
DISPLAYS  THE  KEY  NUMBER. 


EXITSS 

DATA  AND  DEFINITIONS 


.MCALL 

; 

.SBTTL 

LSINIT: 

.WORD 

LSCONN: 

.WORD 

LSPRRD: 

.WORD 

LSSTAT: 

.WORD 

LSDISC: 

.WORD 

TK: 

.ASCII 

WT: 

.ASCII 

ONE: 

.  WORD 

SEVEN: 

.WORD 

MSIZ: 

,  WORD 

RESULT: 

.BLKW 

STATUS: 

,BLKW 

KEY: 

.BLKB 

MESAGE: 

.ASCII 

2, RESULT, ONE 

4,  RESULT, ONE, ONE, ONE 


;  LIST  FOR  CALL  FDINIT 
;  LIST  FOR  CALL  FDCONN 


7, RESULT, MESAGE, ONE, ONE, TK, MESAGE, MSIZ 


CALL  FDPRRD 


5, STATUS, ONE, MESAGE, WT, SEVEN 
2, RESULT, ONE 


/WT/ 
1 
7 
32. 

1 
6 


LIST  FOR  CALL  FDSTAT 
f  LIST  FOR  CALL  FDDISC 

PROMPT  CODE  =  READ  TRANS. KEYS 

STATUS  CODE  =  WAIT  FOR  COMPLETION  OF  XFR , 

CONSTANT  VALUE  OF  ONE 

CONSTANT  VALUE  OF  SEVEN 

CONSTANT  VALUE  OF  32  BYTES  IN  MESSAGE. 

RESULT  OF  FDXXXX  CALLS 

STATUS  VECTOR  FROM  CALL  FDSTAT 

SEVENTH  WORD  OF  STATUS  VECTOR  HAS  T-KEY. 


/LAST  KEY  WAS 


PUSH  NEW  TRA-KEY/ 
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.SBTTL  PROCEDURE 


BEGIN: 


MOV 

|LSINIT,R5 

CALL 

FDINIT 

CMP 

RESULT, f"OK 

BNE 

800$ 

MOV 

•LSC0NN,R5 

CALL 

FDCONN 

CMP 

RESULT,!  "OK 

BNE 

800$ 

POINT  TO  PARAMETER  LIST 
INITIALIZE  FDMUTR 
IF  CALL  FAILED, 
EXIT. 

POINT  TO  PARAMETER  LIST 
CONNECT  TRMll-LUNil-SBl: 
IF  CALL  FAILED, 
EXIT. 


800$: 

I 
I 


;   MAIN 

LOOP  OF 

PROGRAM  IS  IN  THIS  BOX  *************************** 

* 

500$: 

MOV 

•LSPRRD,R5      ; 

POINT  TO  PARAMETER  LIST         * 

CALL 

FDPRRD           ; 

DISP. PROMPT  +  READ  TRANS. KEY    * 

CMP 

RESULT, t'OK     ; 

IF  CALL  FAILED,                   * 

BNE 

800$ 

EXIT.                            * 

; 

MOV 

•LSSTAT,R5      j 

POINT  TO  PARAMETER  LIST         • 

CALL 

FDSTAT 

WAIT  FOR  OPERATOR'S  FINGER      * 

CMP 

STATUS, l"CA 

IF  TRANS  WAS  CANCELLED,          * 

BNE 

550$ 

(BRANCH  ON  NOT  CAN'D)          • 

CMPB 

KEY,i 'J 

DUE  TO  SUPERV.  KEY,              * 

BEQ 

600$ 

;    IT  IS  A  SPECIAL  CASE  -  OK.    * 

550$: 

CMP 

STATUS,! "OK 

IF  CALL  FAILED,                  * 

BNE 

800$ 

;    EXIT.                          * 

1 

MOVB 

KEY,R0 

■  GET  TRANS-KEY  CODE,              * 

SUB 

•'§,R0 

STRIP  OFF  ASCI  I -OFFSET,         * 

ADD 

••0,R0 

•  AND  INSERT  NUMERIC-OFFSET.      * 

CMPB 

KEY,#'I 

IF  T-KEY  WAS  FROM  RT80  3,        * 

BNE 

600$ 

;    (BRANCH  ON  NOT  RT80  3)          * 

MOV 

•'B,R0 

;    SHOW  HIM  A  'B' .                 * 

600$: 

CMPB 

KEY,fJ 

;  IF  TRANS  WAS  SUPERV. KEY,        • 

BME 

610$ 

;     (BRANCH  ON  NOT  SUPER)         • 

MOV 

••S,R0 

;    SHOW  HIM  A  'S' .                * 

610$: 

HOVB 

R0,MESAGE*15 

;  PUT  KEY-CODE  INTO  MESSAGE,      * 

; 

•It 

500$ 

;  AND  GO  SHOW  IT  AGAIN.           • 

MOV 
CALL 


EXIT$S 
.END 


#LSDISC,R5 
FDDISC 


BEGIN 


;  POINT  TO  PARAMETER  LIST 
;  DISCONNECT  (KILL+DETACH) 


END  OF  PROGRAM 
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CHAPTER  3 


ATS  TERMINAL  I/O 


3.1     OVERVIEW 


3.1.1     ATS  Terminal  I/O  Functions 

Application  Terminal  Support  (ATS)  software  allows  interactive  applications  programs  develop*  j  to 
run  on  local  terminals  (TT:)  to  be  run  on  terminals  connected  to  DPMOl/VTl  10  multiplexers.  The  only 
requirement  is  that  the  logical  unit  number  (LUN)  assigned  to  the  TT:  terminal  be  reassigned  to  the 
DPMOl/VTl  1 0-connected  terminal.  Tasks  need  not  be  recompiled  or  rebuilt.  Tasks  which  commu- 
nicate with  the  pseudo-device  TI:  will  have  the  LUN  assignment  handled  automatically  if  they  are  in- 
voked at  a  terminal  connected  to  the  ATS  Dispatcher  (see  Chapter  6). 


Table  3-1  lists  the  languages  and  functions  that  can  be  used  to  communicate  with  DPMOl/VTl  10- 
connected  terminals. 


Table  3-1     ATS  Terminal  I/O  Functions 


Language 


Function 


BASlC-PLUS-2 


INPUT 
INPUT  LINE 
LINPUT 
PRINT 
PRINT  USING 


COBOL 


ACCEPT 
DISPLAY 
READ 
WRITE 


FORTRAN 


ACCEPT 

PRINT 

READ 

TYPE 

WRITE 


MACRO- 11 


Read  Logical  Block  (lO.RLB) 
Read  Virtual  Block  (lO.RVB) 
Write  Logical  Block  (lO.WLB) 
Write  Virtual  Block  (lO.WVB) 


PCS  CALLS 


GET  (sequential) 
PUT  (sequential) 


.^-1 


With  ATS  support,  checkpointable  tasks  will  be  stopped  and  may  be  checkpoinied  until  terminal  read 
and  write  functions  complete.  Therefore,  communications  with  ATS  terminals  should  be  considered  as 
synchronous  unless  the  task  is  non-checkpointable  or  checkpointing  has  been  disabled. 

,ATS  Terminal  I/O  is  availa'  ;  only  on  D^^.-PLUS  systems  for  terminals  connected  to  a  DPMOI/ 
VTI  10  To  determine  whether  a  particular  terminal  is  an  ATS  terminal,  use  the  MCR  command  DF-V 
SB:  and  confirm  that  the  unit  is  marked  MOUNTED. 

3.1.2  Differences  between  .ATS  and  TT:  Terminal  I/O 

There  are  a  lew  differences  between  ATS  I/O  and  TT:  terminal  I/O.  With  ATS.  the  buffer  specified 
for  an  lO WI.B  or  lO.Rl.B  function  must  start  on  a  word  boundary,  or  an  IE. BYT  error  code  will  be 
returned.  Also,  an  lO.KII.  request  may  complete  before  some  requests  in  progress  or  in  the  I/O  queue 
are  actually  aborted.  Note  that  .\TS  I/O  does  not  support  I/O  subfunciions,  character  timeouts,  or 
terminal-independent  cursor  control  through  the  VFC. 

W  ilh  .ATS  I/O  a  read  will  terminate  if  the  terminal's  buffer  is  filled.  The  size  of  this  buffer  is  a  termi- 
nal attribute  specified  via  the  ATGEN  utility.  The  size  of  the  buffer  specified  in  the  read  request  has 
no  effect  on  the  number  of  characters  which  will  be  read  before  the  read  terminates. 

3.1.3  I  sage  Notes 

To  best  emulate  TT:  terminals,  the  system  manager  should  S'  'cct  the  following  attributes  for  ATS  'er- 
minals  via  ATGEN: 

•  Standard  termination  characters  (RETLRN  and  CTRL/Z) 

•  Standard  buffer  size  (133.  characters) 

•  Priority  device  (supports  CTRL/S  and  CTRL/Q) 

CALTION 

Never  refer  to  a  DPMOl/VTllO-connected  termi- 
nal in  an  MCR  SET  command;  this  practice  could 
cause  corruption  of  the  data  base. 

3.2     ATS  QIO  INTKRFAC  t: 

3.2.1     (iet  LI  N  Information  Directive 

Sec  the  RS.\-I  I .\f/KS.\l  I \t-Pl.i  S  L.xccuilve  Rejeremv  Manual  for  general  information  on  the  (ict 
LUN  Information  directive. 

The  buffer  filled  by  the  Get  I. UN  Information  (CiLUNS)  directive  is  structured  as  follows  for  ATS 
terminals: 


Word  0 
Word  I 

Word  2 


Name  of  the  assigned  device  in  ASCII  formal  (SB). 

Unit  number  of  the  assigned  device  in  the  low  byte.  The  high  byte  is  the 
flag  byte.  The  flag  byte  equals  20()( octal)  if  the  device  driver  is  resident. 
It  is  0  if  the  driver  is  not  loaded. 

First  characteristics  word     contains  the  informatii)n  shown  in  Table  3-2. 


Bit 


Table  3-2     First  Characteristics  Word— Word  2  of  GLUN  Buffer 


Setting 


Meaning  If  Set 


0 

1 

1 

1 

2 

1 

3 

0 

4 

0 

5 

0 

6 

0 

7 

1 

8 

0 

9 

0 

10 

0 

11 

0 

12 

0 

13 

0 

14 

0 

15 

1 

Record-oriented  device 

Carriage-control  device 

Terminal  device 

File-structured  device 

Single-directory  device 

Sequential  device 

Massbus  device 

User-mode  diagnostics  supported 

Reserved 

Unit  software  write-locked 

Input  spooled  device 

Output  spooled  device 

Pseudodevice 

Device  mountable  as  a  communications  channel 

Device  mountable  as  a  FILES-1 1  volume 

Device  mountable 


Word  3 


Second  characteristics  word  is  not  meaningful. 


Word  4 


Third  characteristics  word — bit  8  is  set.  Bits  10  and  1 1  specify  which  of 
the  four  DPMOl/VTl  10  device  ports  is  at  this  address,  as  indicated  be- 
low: 


Bit    11 

Bit 

10 

Device    Port   No. 

n 

[' 

0 

'2 

.1 

1 

1 

■T 

2 

1 
1 

1 

1 

Word  5 


Fourth  characteristics  word  is  not  meaningful 
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3.2.2    QIO  Functions 

Table  3-3  lists  the  standard  QIO  functions  for  ATS  terminals. 

Table  3-3    Standard  QIO  Functions  for  ATS  Terminals 


Format 


Function 


QIOSC  lO.ATT,... 
QIOSC  lO.DET,... 
QIOSCIO.KIL... 

QIOSC  lO.RLB <STADD,SIZE> 

QIOSC  lO.RVB <STADD,SIZE> 

QIOSC  lO.WLB <STADD,SIZE,VFC> 

QIOSC  IO.WVB,..,<STADD,SIZE,VFC> 
Where: 

ST  ADD  is  the  starting  address  of  the  data  buffer. 

SIZE  is  the  number  of  bytes  in  the  data  buffer. 

VFC  is  the  vertical  format  control  character. 


Attach  device 
Detach  device 
Cancel  I/O  requests 

*  Read  logical  block 
Read  virtual  block 

*  Write  logical  block 
Write  virtual  block 


*  The  data  buffer  address  must  be  on  a  word  boundary.  Use  of  virtual  functions  is  always  recommend- 
ed. 


Any  of  the  characters  in  Table  3-4  can  be  specified  as  the  value  of  the  Vertical  Formal  Control  (VFC) 
character. 


Table  3-4    VFC  Characters 


Octal  Value 


Character 


Meaning 


040 


060 


061 


blank 


SINGLE  SPACE  —  Output  1  line  feed,  print  the  contents  of  the 
buffer,  and  output  a  carriage  return.  Normally,  printing  immedi- 
ately follows  the  previously  printed  line. 

DOUBLE  SPACE  —  Output  2  line  feeds,  print  the  contents  of 
the  buffer,  and  output  a  carriage  return.  Normally,  the  buffer 
contents  are  printed  two  lines  below  the  previously  printed  line. 

PAGE  EJECT  —  Output  a  form  feed  <I4>;  print  the  contents 
of  the  buffer,  and  output  a  carriage  return. 


m 
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TabEe  3-4.     VF(  Characters  (Cont.) 


# 


# 


Octal  Value        C  haracler 


Meaning 


053 


044 


+ 


$ 


000 


null 


OVERPRINT  —  Print  the  contents  of  the  bulTcr  iind  imtpui  a 
carriage  return,  normally  overprinting  the  previous  line. 

PROMPTING  OUTPUT  —  Output  I  line  feed  ;ind  print  the 
contents  of  the  buffer.  This  mode  of  output  is  intended  for  use 
with  a  terminal  on  which  a  prompting  message  is  output,  and  in- 
put is  then  read  on  the  same  line, 

INTERNAL  VERTICAL  FORMAT  Print  the  bullcr  eon- 
tents  without  addition  of  vertical  format  control  characters.  In 
this  mode,  more  than  one  line  of  guaranteed  contiguous  output 
can  be  printed  for  each  I/O  request. 


All  other  vertical  format  control  characters  are  interpreted  as  blanks  (040), 

Before  anv  read  is  executed,  a  carriage  return  and  a  line  feed  will  be  output,  except  when  the  previous 
operation  was  a  write  with  a  VFC  character  of  $  or  null. 

3  2.3     Frror  and  Status  Returns 

L  nder  RS\  convention,  the  iow-order  byte  of  the  first  word  of  the  I/O  status  block  contains  one  of 
three  In  pes  of  status  codes; 

1.  +1  (IJ^;.SL'C)  indicates  successful  completion  of  an  I/O  operation. 

2.  .A  negative  number  (lE.xxx)  indicates  unsuccessful  completion  of  an  I/O  operation. 

3.  Zero  (IS.PND)  indica  -s  that  the  I/O  operation  is  pending. 

Table  3-5i  lists  symbols  for  the  error  and  status  codes  that  are  returned  to  the  I/O  status  block. 

H"  an  I/O  operation  completes  successfully  (IS.SUC),  the  second  word  of  the  I/O  status  block  contains 
UiV  number  of  bytes  transferred. 

When  a  read  operation  completes  successfully  (IS.SUC),  the  high-order  byte  of  the  first  v\i)rd  o\'  the 
I/O  status  block  contains  the  terminator  character,  as  follows- 


15 

33 

special 
character 


0 


if  the  read  was  terminated  by  RETURN. 
if  the  read  was  terminated  by  ESC. 


if  the  read  was  termmated  by  a  special  character.  The  system  m.mager  may 
specif)  a  special  terminator  character  as  a  terminal's  ,ittribute.  using  the  ,'\T- 
GEN  utility. 

if  the  read  was  terminated  by  the  terminal  buffer's  byte  count  being  satisfied. 
(Note  that  the  terminal's  buffer  si/e  is  the  attribute  uhich  the  s\steiii  manager 
specified  using  ATGEN,  not  the  buffer  size  specified  it)  the  QIC)  icquesi.) 


^-S 


Note  that  terminator  characters  are  returned  only  to  the  I/O  status  block,  not  to  the  task's  buffer. 

NOTE 

Most  of  the  symbohi  for  status  codes  listed  in  Table 
3-5  are  intended  for  comparison  ^ith  the  status  byte 
of  the  I/O  status  block.  The  two  exceptions,  IS.CR 
and  IS.ESC,  are  intended  for  comparison  with  the 
entire  first  word  of  the  I/O  status  block.  That  is, 
you  may  test  for  successful  read  terminated  by  RE- 
TL'RN  using: 

CMP     IS.CR,IOSB 

instead  of: 

CMPB     IS.SLC,IOSB 

and: 

CMPB    #15,I0SB+I 

The  "error"  return  IF. EOF  may  be  considered  to  indicate  a  successful  read,  because  characters  can  be 
returned  to  ihe  task's  buffer.  The  character  count  appears  in  the  second  word  of  the  I/O  status  block. 

In  summary,  upon  successful  completion  of  a  read,  the  I/O  status  block  looks  like  this: 


3yt 


W-jrd       3 
I 


ret 


Number    of    bytes    read 


where  ret  is  either  the  terminating  character  or  0  if  the  read  was  terminated  by  filling  of  the  buffer. 
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Table  3-5    Terminal  Status  Returns 


Code 


# 


IF  HOF 

issue 

ISCR 
IS.CC 
IS.  ESC 
IS.PND 
lEDAA 
II  DNR 
IF  IKC 
IF  BVT 

iFon 

IF  PRI 
IFSPC 


IF  RBG 

IF  ABO 

IFFHF 
It  DAO 
IF  VFR 


Reason 


Successful  completion  on  a  read  terminated  with  end-of-file  character 
(CTRL/Z). 

Successful  completion  of  a  read  or  write. 

Successful  completion  on  a  read  terminated  by  carriage  return  (RETURN), 

CTRF/C  used  as  a  terminator. 

Successful  completion  on  a  read  terminated  by  escape  character  (ESC). 

I/O  request  pending. 

Device  alread>  attached  by  this  task. 

The  terminal  is  not  available  for  I/O. 

Illegal  function  code. 

An  odd  byte  buffer  address  was  used  with  an  lO.WFB.  or  lO.RLB. 

Device  ofHine. 

Privilege  violation. 

A  nonprivileged  task  issued  a  request  with  a  privileged  function  code. 

Illegal  address  space. 

The  buffer  specified  for  a  read  or  write  request  was  partially  or  totally  outside 
the  address  space  of  the  issuing  task,  or  a  byte  count  of  zero  was  specified. 

Buffer  too  large. 

Buffer  length  is  limited  to  133.  Bytes  for  ATS  terminals. 

Write  was  timed  out.  device  became  unavailable,  or  function  was  aborted  by 
lOKIL. 

Controller  was  unable  to  access  buffer. 

Buffer  was  too  small  to  accept  daf  from  terminal. 

Terminal  is  not  functioning  properly. 
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CHAPTER  4 


I/O  PROGRAMMING  WITH  PERIPHERAL  CONTROL  BYTES 


This  chapter  describes  ihe  QIO  interface  to  the  DECdatavay  driver  (SBDRV)  for  communicating  with 
terminals.  This  information  does  not  apply  to  ATS  terminals.  The  QIO  interface  for  ATS  is  described 
in  Chapter  3.  Sec  Chapter  1  of  the  RSX-ll M/RSX-U M-PLVS  I/O  Drivers  Reference  Manual  for  gen- 
eral information  on  I/O  operations.  Programmers  who  use  the  QIO  interface  to  the  DECdataway  Jriv- 
er  must  encode  Peripheral  Control  Bytes  (PCBs)  in  each  message.  The  appendixes  to  this  manual  con- 
tain detailed  descriptions  of  PCBs  for  DPM  terminals  and  multiplexers. 

4.1     PERIPHERAL  CONTROL  BYTES 

The  first  four  bytes  of  any  message  from  the  host  to  an  RT80x  terminal  or  a  DPMOl/VTllO  multi- 
plexer are  interpreted  by  the  DECdataway  device  as  a  Peripheral  Control  Request  (PCREQ).  The  four 
bytes  that  make  up  the  request  are  called  Peripheral  Control  Bytes  (PCBs).  Each  of  the  four  bytes 
contains  a  separate  category  of  information:  read,  write,  transaction,  status.  The  remainder  of  the  mes- 
sage, if  any,  is  the  data  associated  with  the  command. 

When  an  RT80x  terminal  or  a  DPMOl/VTllO  multiplexer  responds  to  a  request  from  the  host,  the 
first  four  bytes  of  the  message  sent  to  the  host  are  called  a  Peripheral  Control  Reply  (PCREP).  The 
first  two  bytes  of  the  reply  from  the  terminal  are  identical  to  those  previously  sent  from  the  host.  The 
other  two  bytes  contain  transaction  and  status  information.  Data,  if  any,  follows  the  Peripheral  Control 
Reply. 

4.1.1     RT80x  Terminal  Command  Summary 

Table  4-1  is  a  summary  definition  of  how  RT80x  terminals  interpret  the  Peripheral  Control  Request 
sent  by  the  host.  This  request  is  a  4-byte  string: 

PCREQ  =  PCIN,  PCOUT,  PCTRAN,  PCSTAT 

All  four  bytes  of  PCREQ  are  printable  ASCII  characters;  for  example: 
PCREQ  =  @@^(§»        Is  the  null  (no-op)  request. 
PCREQ  =  J@@@         Enables  the  transaction  lcey(s). 


Table  4-1     RTSOx  Interpretation  of  Peripheral  Control  Requests 


CHAR     PCIN 


PCOUT 


PCTRAN       PCSTAT 


® 

None 

None 

None 

None 

A 

Terminal  Configuration 

Diag.  Restart 

Key  1  AWS 

Function  Error 

B 

Configuration  ■\-  Diagnostics 

Display  -1-  Hold 

Key  2  AWS 

Entry  Accept 

C 

Diagnostics  Down-Load 

Display  -1-  Clear 

Key  3  AWS 

(Combination) 
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Table  4-1     RT80x  Interpretation  of  Peripheral  Control  Requests  (Cont.) 


CHAR 

PCIN 

PCOUT 

PCTRAN 

PCSTAT 

D 

T5  Without  Prompt 

Disp  I/O  Query 

Key  4  AWS 

Read  Errcr 

E 

T5  With  Prompt 

Disp  I/O  Format 

Key  5  AWS 

(Combination) 

F 

T3  80-CoI  Punched  Card 

Time-out  Message 

Key  6  AWS 

(Combination) 

G 

(Reserved) 

Energize  Relay 

Key  7  AWS 

(Combination) 

H 

T3  22-Col  Badge 

Deenergize  Relay 

Key  8  AWS 

Sound  Alarm 

I 

T3  22-Col  Ticket 

Print  External 

Key  BWS 

(Combination) 

J 

Transaction  Key(s) 

Print  -1-  Echo 

None 

(Combination) 

K 

Digital  Input 

Digital  Output 

(Illegal) 

(Combination) 

L 

(Illegal) 

(Illegal) 

(Illegal) 

(Combination) 

M 

Keypad 

(Illegal) 

(Illegal) 

(Combination) 

N 

External  Keyboard 

(Illegal) 

(Illegal) 

(Combination) 

O 

(Illegal) 

(Illegal) 

(Illegal) 

(Combination) 

Where: 


AWS  =     Area  Work  Station  (RT805)  transaction  key 

BWS  =     Basic  Work  Station  (RT803)  transaction  key 

Combination       =     Combination  of  status  indicators  (i.e.,  PCSTAT  =  C  will  light  the  Function 

Error  light  and  the  Entry  Accept  light.) 

NOTE 

In  Tables  4-1,  4-2,  and  4-4,  the  column  labeled 
CHAR  shows  the  characters  that  are  valid  in  a  pe- 
ripheral control  message.  The  remaining  columns 
show  the  functions  of  each  Peripheral  Control  Byte 
according  to  the  character  the  byte  contains.  For  ex- 
ample, in  Table  4-1, 

A  in  PCIN  means  Read  Terminal  Configuration. 

A  in  PCOUT  means  perform  a  Diagnostic  Restart. 

A  in  PCTRAN  means  light  Transaction  Key  1  on  an 
RT805. 

A  in  PCSTAT  means  light  the  Function  Error  light. 

Table  4-2  is  a  summary  definition  of  the  replies  that  an  RT80x  terminal  can  send  to  the  host,  following 
the  terminal's  execution  of  the  previous  Peripheral  Control  Request.  A  reply  is  a  4-byte  string  of  print- 
able ASCII  characters: 

PCREP  =  PRIN,  PROUT,  PRTRAN,  PRSTAT 
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Table  4-2    RT80x  Terminal  Replies  to  Peripheral  Control  Requests 


CHAR 

PRIN 

<& 

A 

B 
C 

D 

E 

PRIN  and  PROUT 

F 

should  always  be 

G 

H 

copies  of  the 
PCIN  and  PCOUT 

I 

fields  from  the 

J 

last  PCREQ 

K 

L 
M 

N 

0 

PROUT     PRTRAN 


None 

Key  1  AWS 
Key  2  AWS 
Key  3  AWS 
Key  4  AWS 
Key  5  AWS 
Key  6  AWS 
Key  7  AWS 
Key  8  AWS 
Key  BWS 
Supervisor  Key 


PRSTAT 


None 

Illegal  Request 

CANCEL  Key 


Key  in  SUPVR  Position 


Some  combinations  of  PCIN  and  PCOUT  produce  unpredictable  results.  Therefore,  it  is  recommended 
that  tasks  use  only  the  combinations  shown  in  Table  4-3. 

Table  4-3    Recommended  Combinations  for  PCIN  and  PCOUT 
in  Peripheral  Control  Requests 


PCIN 

PCOUT 

PCIN 

PCOUT 

® 

@ 

F 

C 

® 

B 

H 

@ 

@ 

F 

H 

c 

<& 

G 

I 

@ 

<& 

H 

I 

c 

<B 

J 

J 

@ 

- 

(s> 

K 

K 

@ 

A 

@ 

M 

D 

D 

(a 

M 

E 

E 

@ 

N 

D 

E 

C 

N 

E 

F 

@ 

N 

J 

See  Appendix  A,  Section  A.2  for  a  full  discussion  of  PCB  commands  for  RT80x  terminals. 

4.1.2    DPMOl/VTllO  Multiplexer  Command  Summary  l 

Peripheral  Control  Requests  for  terminal  multiplexers  are  4-byte  strings. 

PCREQ  =   PCIN,  PCOUT,  PCTRAN,  PCSTAT 


4-3 


Peripheral  Control  Replies  for  multiplexers  are: 

PCREP  =  [Copy  of  PCIN,  PCOUT  from  last  PCREQ],  PCTRAN,  PCSTAT 

For  example: 

PCREQ  =  R®@@        is  a  request  to  read  formatted  data  from  a  DPMOl  /VTl  10  terminal  with- 
out echoing. 

PCREP  =  R@@X        is  the  reply  from  the  DPMOl /VTl  10  stating  that  formatted  data  is  being 

returned,  as  requested,  and  that  the  terminating  character  is  a  carriage 
return- 
Table  4-4  lists  the  legal  PCBs  for  the  DPMOl /VTl  10.  All  of  these  bytes  are  printable  ASCII  charac- 
ters. 


Table  4-4    Legal  PCB  Characters  for  Multiplexers  and  Their  Meanings  for  Each  Byte 


CHAR      PCIN 


PCOUT 


PCTRAN 


PCSTAT 
(Host  to 
DPMOl) 


PCSTAT 
(DPMOl 
to  Host) 


@ 

None 

None 

None 

None 

Buffer  Full 

A 

Return 

Diag- 

(Illegal) 

(Illegal) 

Illegal  Request 

Configuration 

nostic 

Status  Return 

B 

Return  Diagnostic 

(Illegal) 

(Illegal) 

(Illegal) 

(Illegal) 

F 

(Illegal) 

(Illegal) 

(Illegal) 

(Illegal) 

UART  Framing 
Error 

L 

(Illegal) 

(Illegal) 

Load  New 
Attributes 

(Illegal) 

(Illegal) 

O 

(Illegal) 

(Illegal) 

(Illegal) 

(Illegal) 

UART  Overflow 
Error 

P 

(Illegal) 

(Illegal) 

(Illegal) 

(Illegal) 

UART  Parity 
Error 

R 

Formatted  Read, 
No  Echo 

(Illegal) 

(Illegal) 

(Illegal) 

(Illegal) 

S 

Formatted  Read, 
With  Echo 

Formatted 
Write 

(Illegal) 

(Illegal) 

(Illegal) 

T 

Read  Transparent, 
No  Echo 

Trans- 
parent 
Write 

(Illegal) 

(Illegal) 

(Illegal) 

W 

Read  Transparent, 
With  Echo 

(Illegal) 

(Illegal) 

(Illegal) 

PCTRAN  Contains 
Down  Line  Loaded 
Terminating 
Character 

X 

(Illegal) 

(Illegal) 

(Illegal) 

(Illegal) 

Carriage  Return 
Termination 

z 

(Illegal) 

(Illegal) 

(Illegal) 

(Illegal) 

CTRL/Z 

Termination 
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Note  that  if  W  is  returned  in  PCSTAT,  then  PCTRAN  contains  the  value  of  the  down  line  loaded 
termirtating  character.  The  terminating  character  will  not  be  <CR>  or  CTRL/Z. 

See  Appendix  B,  Section  B.3,  for  a  discussion  of  PCB  commands  for  DPMOl/VTl  10  multiplexers. 

4.2    QIO  INTERFACE  TO  DRIVER  (SBDRV) 

User  tasks  written  in  MACRO  or  FORTRAN  can  transfer  data  to  or  from  DPM  terminals  by  issuing 
QIO  directives  to  the  DECdataway  driver,  SBDRV.  SBDRV  processes  data  transfers  to  and  from  mul- 
tiple DECdataway  devices  concurrently.  SBDRV  maintains  a  separate  I/O  queue  for  each  unit,  rather 
than  for  each  controller.  Thus,  from  the  user  program,  transfers  to  or  from  each  separately  addressed 
device  are  independent.  Each  unit  on  the  DECdataway  appears  to  the  user  as  a  separate  logical  unit. 

The  RSX-1 1  name  for  devices  supported  by  SBDRV  is  SBn,  where  n  is  an  octal  number.  For  example, 
the  first  device  on  the  first  controller  is  SBl. 

QIOs  are  expressed  in  standard  form  as: 

QIO$fnc,lun,(efnl„IisbMastl,<Pl,P2,P3,P4,P5,P6> 

All  buffer  addresses  must  be  word-aligned.  All  buffer  sizes  are  expressed  in  bytes. 

Table  4-5  summarizes  the  QIO  functions  for  the  DECdataway  driver.  Section  4.4  shows  examples  that 
use  these  functions. 

Table  4-5    QIO  Functions  for  the  DECdataway  Driver 


QIOSC  lO.KIL,... 

Cancel  all  I/O  requests. 

QIOSC  lO.ATT,.. 

Attach  device. 

QIOSC  lO.DET,.. 

Detach  device. 

QIOSC  lO.WLB,. 

..,<STADD,SIZE> 

Write  logical  block. 

QIOSC  lO.RLB,.. 

.,<STADD,SIZE> 

Read  logical  block. 

QIOSC  lO.WVB,. 

..,<STADD,SIZE> 

Write  virtual  block  (saric    s  lO.WLB). 

QIOSC  lO.RVB,.. 

.,<STADD,SIZE> 

Read  virtual  block  (sani>  as  lO.RLB). 

QIOSC  lO.WPC,. 

..,<STADD,SIZE„HDADD,HDSIZE> 

Write  with  peripheral  control.  SBDRV 
sends  a  concatenated  message  to  the  des- 
ignated device  consisting  of  the  header 
message  at  HDADD,  followed  by  the 
data  message  at  STADD. 

QIOSC  lO.RPC,.. 

.,<STADD,SIZE„HDADD,HDSIZE> 

Read  with  peripheral  control.  SBDRV 
sends  the  header  message  at  HDADD  to 
the  designated  device  and  then  tells  the 
DECdataway  controller  to  receive  a  data 
message  from  the  device  and  place  it  in 
the  buffer  at  STADD. 
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Table  4-5.    QIC  I  unctions  for  the  DECdataway  Driver  (Cont.) 


Where: 

STADD 
SIZE 

HDADD 
HDSIZE 


is  the  data  buffer  address. 

is  the  data  buffer  size.  For  lO.RLB  the  range  of  SIZE  is  1-256  (decimal).  If 
the  byte  count  is  odd  for  any  read  function,  the  last  byte  +  1  is  destroyed. 

is  the  header  buffer  address.  This  buffer  contains  the  control  message. 

is  the  header  buffer  size.  The  range  for  HDSIZE  is  0-255  (decimal). 


NOTE 

The  lO.WPC  function  with  HDADD  or  HDSIZE 
=  0  will  fai!  if  ATS  support  has  been  selected  dur- 
ing DPM  generation.  The  return  status  code  will  be 
1E.IFC. 

The  following  status  codes  have  unique  meanings  for  SBDRV: 


lE.SPC 

lE.VER 

lE.DAO 

lE.FHE 

lE.ABO 

lE.DNR 
lE.IFC 


byte  count  too  large,  or  invalid  buffer  address 

eight  latency  errors  encountered  on  same  device 

input  buffer  overrun 

DECdataway  controller  unable  to  access  user  buffer 

write  time-out,  device  went  off-line  with  transfer  in  progress,  or  a 
function  was  aborted  following  an  lO.KIL  directive 

device  off-line 

illegal  function 


4.3    GET  LUN  INFORMATION  MACRO 

The  buffer  filled  by  the  Get  LUN  Information  (GLUN$)  directive  is  structured  as  follows: 


WordO 


is  the  name  of  the  assigned  device  (SB)  in  ASCII. 


Word  1  contains  the  unit  number  of  the  assigned  device  in  the  low  byte.  The  high 

byte  is  the  flags  byte.  It  equals  200  (octal)  if  the  device  driver  is  resident. 
It  is  0  if  the  driver  is  not  loaded. 

Word  2  (the  first  characteristics  word)  contains  the  information  shown  in  Table 

4-6  for  all  non-broadcast  units. 
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Table  4-6    Get  LUN  Directive  Word  2  Interpretation 


Bit 


Setting 


Meaning  If  Set 


0 

1 

1 

0 

2 

0 

3 

0 

4 

0 

5 

0 

6 

0 

7 

1 

8 

0 

9 

0 

10 

0 

11 

0 

12 

0 

13 

0 

14 

0 

15 

0 

Record-oriented  device 

Carriage-control  device 

Terminal  device 

File-structured  device 

Single-directory  device 

Sequential  device 

Massbus  device 

User-mode  diagnostics  supported 

Reserved 

Unit  software  write-locked 

Input  spooled  device 

Output  spooled  device 

Pseudo  device 

Device  mountable  as  a 

Device  mountat  ie  as  a 

Device  mountable 


communications  channel 
FILES-1 1  volume 


For  broadcast  channels,  word  2  is  0. 


Word  3 


(the  second  characteristics  word)  is  not  meaningful. 


Word  4  (the  third  characteristics  word)  indicates  whether  the  driver  has  been 

configured  for  either  a  DPMOl/VTl  10  or  a  DIS  at  this  address.  If  bit  8 
of  word  4  is  set,  the  device  is  a  DPMOl/VTl  10.  If  bit  15  is  set,  the  de- 
vice is  a  DIS.  Bits  10  and  1 1  reflect  the  device  port  numbers,  as  shown  in 
Figure  4-1  and  Table  4-7.  Bits  0-7,  9,and  12-14  are  not  meaningful.  Note 
that  a  DPMOl/VTl  10  has  four  ports;  a  DIS  has  two. 


15    14    13    12    11    10      9      8      7       6      5       4       3       2       1       0 


Yi        I        I        I     Zl     Zl        I    XI        I        I        I        I        I 


X         —  Device  is  a  DPMOl/VTllO  if  this  bit  is  set. 

Y         —  Device  is  a  DIS  if  this  bit  is  set. 

ZZ       —  These  bits  define  the  port  number  on  the  device,  as  shown  in  Table  4-7. 

Figure  4-1     Get  LUN  Word  4  Bit  Configuration 
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BitU 

0 

0 

1 
1 


Word  5 


Table  4-7    Get  LUN  Device  Port  Number  Information 


Bit  10 

0 
1 
0 

1 


Device  Port  No. 

0 

1 

2 

3 


(the  fourth  characteristics  word)  indicates  the  maximum  buffer  size, 
which  should  always  be  256  (decimal)  bytes. 


4.4    SAMPLE  MACRO  TASKS  USING  QIO  DIRECTIVES 

The  following  examples  illustrate  the  use  of  QIO  directives  for  communication  with  DPM  terminals. 


.TITLE      ILLUST  -  ILLUSTRATIVE  EXAMPLE-1 
.IDENT      /V01.1/ 

THIS  TASK  ILLUSTRATES  ONE  METHOD  FOR  ACCESSING  AN  RT805  OR  RT803  TO 
WRITE  A  MESSAGE  TO  ITS  DISPLAY. 

NOTE  THAT  THIS  TASK  DOES  NOT  CHECK  FOR  ANY  ERROR  CONDITIONS. 


;- 


.MCALL 

LUNSB 

= 

LUNTI 

= 

EVFLAG 

= 

DONMSG: 

.ASCII 

DONS  I Z 

= 

•  EVEN 

RTDMSG: 

.ASCII 

RTDSIZ 

=. 

QIOW$S,EXIT$S 

1 
2 

1 


;  LUN  FOR  ACCESSING  RT80X. 
;  LUN  FOR  ACCESSING  TI:. 
;  EVENT  FLAG  TO  BE  USED. 


BEGIN 


.EVEN 


QIOW$S 


/RT80X  FUNCTION  DONE./ 
.-DONMSG 

/@B@§HELLO  THERt,  kTCCX./ 
.-RTDMSG 


#IO.WLB,#LUNSB,#EVFLAG, , , ,<#RTDMSG , »RTDSI Z> 


NOTE  THAT  IN  lO.WLB  QIO'S  TO  SB-DEVICES,  THE  VERTICAL-FORMAT-CONTROL-WORD, 

IF  SPECIFIED,  IS  IGNORED. 

ALSO  NOTE  THAT  THE  OUTPUT  MESSAGE  MUST  BEGIN  ON  A  WORD  BOUNDARY. 


DONE:  QIOWSS 
EXIT$S 
.END 


#IO.WLB,#LUNTI,#EVFLAG, ,,,< f DONMSG , #DONSIZ ,40 > 
BEGIN 
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;  + 

; 

; 


.TITLE      ILLUST  -  ILLUSTRATIVE  EXAMPLE-2 
.IDENT      /V01.1/ 

THIS  TASK  ILLUSTRATES  ONE  METHOD  FOR  ACCESSING  AN  RT805  OR  RT803  TO 
WRITE  A  MESSAGE  TO  ITS  DISPLAY. 

NOTE  THAT  THIS  TASK  DOES  NOT  CHECK  FOR  ANY  ERROR  CONDITIONS. 


.MCALL 

LUNSB 
LUNTI 
EVFLAG   = 

DONMSG:  .ASCII 
DONS  I Z   = 

.EVEN 

..ASCII 

.  ASC 1 1 
.EVEN 


PCB: 


RTDMSG ; 
RTDSIZ 


QIOW$S,EXIT$S 

1 
2 

1 


LUN  FOR  ACCESSING  RTB0X, 
LUN  FOR  ACCESSING  TI:. 
EVENT  FLAG  TO  BE  USED. 


/RT80X,  FUNCTION  DONE./ 
.-DONMSG 


/§B@@/ 


;  SPECIFIES  NO  INPUT,  OUTPUT  TO 

DISPLAY, 
;  NO  TRANSACTION  LIGHT,  NULL  STATUS. 


/HELLO  THERE,  RT80X./ 
.-RTDMSG 


BEGIN: 


QIOWSS 


#IO.WPC,#LUNSB,#EVFLAG, , , ,<#RTDMSG, #RTDSI Z , ,#PCB , #4 > 


NOTE  THAT  AN  lO.WPC  QIO  WITH  A  NON-ZERO  PCB-SIZE  PARAMETER  RESULTS  IN 
A  CONCATENATED  MESSAGE  BEING  TO  THE  DEVICE:  PCB,  FOLLOWED  BY  THE 
MESSAGE  -  TOTAL  MESSAGE  SIZE  =  RTDSIZ+4. 


DONE: 


QIOW$S 
EXIT$S 
.END 


#IO.WLB,#LUNTI,#EVFLAG, , , ,< tDONMSG , #DONSI Z , #4  0> 
BEGIN 
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.TITLE      ILLUST  -  ILLUSTRATIVE  EXAMPLE-3 
.IDENT      /V01.1/ 

THIS  TASK  ILLUSTRATES  ONE  METHOD  FOR  ACCESSING  AN  RT805  OR  RT803  TO 
ACQUIRE  DATA  FROM  ITS  KEYPAD. 

NOTE  THAT  THIS  TASK  DOES  NOT  CHECK  FOR  ANY  ERROR  CONDITIONS. 


.MCALL 

LUNSB 

= 

LUNTI 

= 

EVFLAG 

= 

NONMSG: 

.ASCII 

NONSIZ 

= 

GOTMSG: 

.ASCII 

GOTSIZ 

=; 

.EVEN 

lOSB: 

.BLKB 

.EVEN 

PCB: 

.ASCII 

QIOW$S,EXIT$S 

1 

2 

1 


LUN  FOR  ACCESSING  RT80X, 
LUN  FOR  ACCESSING  TI : . 
EVENT  FLAG  TO  BE  USED. 


/RT80X,  READ  NO  DATA./ 

.-NONMSG 

/RT8  0X,  DATA  READ  =  / 

.-GOTMSG 


/MC§@/ 


;  I-O  STATUS  BLOCK 


SPECIFIES  KEYPAD  INPUT, 

NO  OUTPUT  BUT  DISPLAY  IN  USE, 

NO  TRANSACTION  LIGHT,  NULL  STATUS, 


.EVEN 

INBUFR: 

.BLKB 

36. 

INDATA 

.EVEN 

INBUFR+4 

BEGIN: 

QIOW$S 

#10. RFC, 

;  INPUT  BUFFER 

;  REAL  DATA  BEGINS  HERE, 


#IO.RPC,#LUNSB,#EVFLAG, ,#I OSB ,,<» INBUFR, #36. , ,#PCB,#4> 


NOTE  THAT  AN  lO.RPC  QIO  WITH  A  NON-ZERO  PCB-SIZE  PARAMETER  RESULTS  IN 
THE  PCB  BEING  SENT  TO  THE  TERMINAL,  FOLLOWED  BY  A  RESPONSE  MESSAGE  FROM 
THE  TERMINAL  INTO  INBUFR. 


MOV 
SUB 

BLE 


QIOWSS 
QIOW$S 
EXIT$S 

NODATA:  QIOW$S 
EXIT$S 
.END 


I0SB+2,R1  ;  GROSS  BYTE-COUNT  RECEIVED, 

#4,R1  ;  LESS  4-BYTE  PCB  REPLY, 

;  IS  NET  DATA  RECEIVED. 
NODATA  ;  IF  NO  DATA,  BRANCH  TO  SAY  SO. 

;  IF  GOT  DATA,  COPY  IT  TO  TI : 
#IO.WLB,#LUNTI,#EVFLAG,,, ,<#GOTMSG , #GOTSIZ , #44> 
#IO.WLB,#LUNTI,#EVFLAG, , , ,<#INDATA,R1> 


#IO.WLB,#LUNTI,#EVFLAG, , , ,<#NONMSG, #NONSIZ ,#4  0> 
BEGIN 
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;- 


.TITLE      ILLUST  -  ILLUSTRATIVE  EXAMPLE-4 
.IDENT      /V01.1/ 

THIS  TASK  ILLUSTRATES  ONE  METHOD  FOR  ACCESSING  AN  RT805  OR  RT803  TO 
ACQUIRE  DATA  FROM  ITS  KEYPAD. 

NOTE  THAT  THIS  TASK  DOES  NOT  CHECK  FOR  ANY  ERROR  CONDITIONS. 


LUNSB 
LUNTI 
EVFLAG 

NONMSG; 
NONSIZ 
GOTMSG ; 
GOTSIZ 


.MCALL 


.ASCII 
. ASC 1 1 


QIOWSS, EXIT$S 

1 

2 

1 


LUN  FOR  ACCESSING  RT80X. 
LUN  FOR  ACCESSING  TI:. 
EVENT  FLAG  TO  BE  USED. 


/RT80X,  READ  NO  DATA./ 

.-NONMSG 

/RT8  0X,  DATA  READ  =  / 

.-GOTMSG 


lOSB! 


PCB: 


.EVEN 
.BLKB 

.EVEN 
.ASCII 


/MC§e/ 


I-O  STATUS  BLOCK 


SPECIFIES  KEYPAD  INPUT, 

NO  OUTPUT  BUT  DISPLAY  IN  USE, 

NO  TRANSACTION  LIGHT,  NULL  STATUS, 


INBUFR: 
IN DATA 


.EVEN 
.BLKB 


36. 
INBUFR+4 


INPUT  BUFFER 

REAL  DATA  BEGINS  HERE. 


BEGIN: 


.EVEN 

QIOWSS 

QIOWSS 


#IO.WLB,#LUNSB,#EVFLAG, ,,,<#PCB,#4> 
#IO.RLB,#LUNSB,#EVFLAG, ,#IOSB, ,< tINBUFR, #36 . > 


NOTE  THAT  THE  PAIR  OF  QIO'S  (lO.WLB  AND  lO.RLB)  JOINTLY  ACCOMPLISH  WHAT 
A  SINGLE  lO.RPC  QIO  COULD  DO. 

GROSS  BYTE-COUNT  RECEIVED, 

LESS  4-BYTE  PCB  REPLY, 

IS  NET  DATA  RECEIVED. 

IF  NO  DATA,  BRANCH  TO  SAY  SO. 

IF  GOT  DATA,  COPY  IT  TO  TI : 

#IO.WLB,#LUNTI,|EVFLAG,,, ,< #GOTMSG , #GOTSIZ , #44> 
#IO.WLB,#LUNTI,#EVFLAG, , , ,<#INDATA, Rl> 


#IO.WLB,#LUNTI,|EVFLAG, , , ,<|NONMSG, #NONSIZ ,#40> 
BEGIN 


MOV 

I0SB+2,R1 

SUB 

4,R1 

BLE 

NODATA 

QIOWSS 
QIOWSS 
EXITSS 

A: 

QIOWSS 
EXITSS 

.END 
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.TITLE 
. I DENT 


ILLUST  -  ILLUSTRATIVE  EXAMPLE-5 
/V01.1/ 


THIS  TASK  ILLUSTRATES  ONE  METHOD  FOR  ACCESSING  AN  RT805  OR  RT80  3  TO 
PROMPT  ITS  OPERATOR  AND  ACQUIRE  DATA  FROM  ITS  KEYPAD. 

NOTE  THAT  THIS  TASK  DOES  NOT  CHECK  FOR  ANY  ERROR  CONDITIONS. 


.MCALL 


LUNSB 
LUNTI 
EVFLAG 

NONMSG; 
NONSIZ 
GOTMSG; 
GOTSIZ 


.ASCII 
.ASCII 


QIOW$S,EXIT$S 

1 

2 

1 


LUN  FOR  ACCESSING  RT8  0X. 
LUN  FOR  ACCESSING  TI:. 
EVENT  FLAG  TO  BE  USED. 


/RT80X,  READ  NO  DATA./ 

.-NONMSG 

/RT80X,  DATA  READ  =  / 

.-GOTMSG 


lOSB; 
PCB: 


PROMPT: 
PROSIZ 


.EVEN 
.BLKB 
•  EVEN 
.ASCII 


.ASCII 


4 

/MC@@/ 


/ENTER  DATA:  / 
.-PCB 


I-O  STATUS  BLOCK 

SPECIFIES  KEYPAD  INPUT, 
NO  OUTPUT  BUT  DISPLAY  IN  USE, 
NO  TRANSACTION  LIGHT,  NULL  STATUS, 
PROMPT  MESSAGE  FOLLOWS  PCB. 


INBUFR; 
INDATA 


BEGIN: 


.EVEN 
.BLKB 


.EVEN 

QIOWSS 

QIOW$S 


36. 
INBUFR+4 


INPUT  BJFFER 

REAL  DATA  BEGINS  HERE. 


#IO.WLB,#LUNSB,#EVFLAG, , , ,<#PCB, #PROSIZ> 
#IO.RLB,»LUNSB,#EVFLAG, ,#IOSB, ,<#INBUFR ,#36 . > 


NOTE  THAT  THE  PAIR  OF  QIO'S  (lO.WLB  AND  lO.RLB)  JOINTLY  ACCOMPLISH  WHAT 
A  SINGLE  lO.RPC  QIO  COULD  DO. 


NODATA; 


MOV 
SUB 

BLE 


QIOWSS 
QIOW$S 
EXITSS 

QIOW$S 
EXIT$S 
.END 


I0SB+2,R1 
14, Rl 

NODATA 


GROSS  BYTE-COUNT  RECEIVED, 

LESS  4-BYTE  PCB  REPLY, 

IS  NET  DATA  RECEIVED. 

IF  NO  DATA,  BRANCH  TO  SAY  SO. 

IF  GOT  DATA,  COPY  IT  TO  TI : 


#IO.WLB,#LUNTI,#EVFLAG,, , ,<#GOTMSG , fGOTSIZ , |44> 
#IO.WLB,#LUNTI,#EVFLAG, , , ,<»INDATA, Rl> 


#IO.WLB,iLUNTI,#EVFLAG, , , ,<#NONMSG, #NONSIZ ,#40> 
BEGIN 
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.TITLE 
•IDENT 


ILLUST  -  ILLUSTRATIVE  EXAMPLE-6 
/V01.1/ 


THIS  TASK  ILLUSTRATES  ONE  METHOD  FOR  ACCESSING  AN  RT805  OR  RT803  TO 
PROMPT  ITS  OPERATOR  AND  ACQUIRE  DATA  FROM  ITS  KEYPAD. 

NOTE  THAT  THIS  TASK  DOES  NOT  CHECK  FOR  ANY  ERROR  CONDITIONS. 

.MCALL 


LUNSB 
LUNTI 
EVFLAG 

NONMSG 
NONSIZ 
GOTMSG; 
GOTSIZ 


lOSB: 


QIOW$S,EXIT$S 

1 

2 

1 


LUN  FOR  ACCESSING  RT80X. 
LUN  FOR  ACCESSING  TI : . 
EVENT  FLAG  TO  BE  USED. 


PCB; 


PROMPT; 
PP'"'  iZ 


INBUFR: 
IN DATA 


BEGIN; 


.ASCII 
.ASCII 


.EVEN 
.  BLKB 

EVEN 
■ASCII 


,  EVEN 
.ASCII 


.EVEN 
.BLKB 


.EVEN 

QIOW$S 

QIOWSS 


/RT80X,  READ  NO  DATA./ 

.-NONMSG 

/RT80X,  DATA  READ  =  / 

.-GOTMSG 


/MC@§/ 


/ENTER  DATA:  / 
.-PROMPT 


36. 
INBUFR+4 


I-O  STATUS  BLOCK 


SPECIFIES  KEYPAD  INPUT, 

NO  OUTPUT  BUT  DISPLAY  IN  USE, 

NO  TRANSACTION  LIGHT,  NULL  STATUS 


PROMPT  MESSAGE  LOCATED  ANYWHERE. 


INPUT  BUFFER 

REAL  DATA  BEGINS  HERE. 


#IO.WPC,#LUNSB,#EVFLAG, , , ,<»PROMPT , #PROSI Z , , #PCB , #4 > 
#IO.RPC,#LUNSB,#EVFLAG, ,#IOSB,  ,< #INBUFR, I  36 . > 


NOTE  THAT  THE  PAIR  OF  QIO'S  (lO.WPC  AND  lO.RPC)  JOINTLY  .ACCOMPLISH  WHAT 
A  SINGLE  lO.RPC  QIO  COULD  DO,  EXCEPT  THAT  THE  PROMPT  NEED  NOT  BE 
ADJACENT  TO  THE  PCB. 


NODATA: 


MOV 
SUB 

BLE 


QIOW$S 
QIOW$S 
EXIT$S 

QIOW$S 
EXIT$S 
.END 


I0SB+2,R1 
#4,R1 

NODATA 


GROSS  BYTE-COUNT  RECEIVED, 

LESS  4-BYTE  PCB  REPLY, 

IS  NET  DATA  RECEIVED. 

IF  NO  DATA,  BRANCH  TO  SAY  SO. 

IF  GOT  DATA,  COPY  IT  TO  TI: 


#IO.WLB,#LUNTI,#EVFLAG, , , ,< #GOTMSG , IGOTSIZ , #44> 
IIO.WLB,#LUNTI,#EVFLAG, , , ,<» I NDATA,R1> 


»IO.WLB,#LUNTI,#EVFLAG, , , ,<»NONMSG , INONSIZ , #40> 
BEGIN 
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PART  III:     TASK  DISPATCHING 


CHAPTER  5 


USING  THE  FDM  DISPATCHER 


5.1     FDM  DISPATCHER  TASK  GROUP 

The  purpose  of  the  FDM  Dispatcher  Task  Group  is  to  make  more  efficient  use  of  main  memory  in 
situations  where  many  user-written  tasks  need  relatively  infrequent  access  to  the  DPM  terminals.  The 
FDM  Dispatcher  waits  for  an  operator  to  push  an  RT80x  transaction  key  or  to  enter  a  transaction  index 
at  a  terminal  connected  to  a  DPMOl/VTl  10;  the  Dispatcher  then  activates  the  corresponding  pre-spec- 
ified  task. 

As  shown  in  Figure  5-1,  the  FDM  Dispatcher  Task  Group  is  composed  of  the  following: 


HOST 
OPERATOR ' 


\  DISPATCH  \_ 


—(^y- 


FDMOIS 


FDD 


C  ""  > 

C 
C 


RT800 


FDM  DSD 


FDMDSX 


DPM01 


RT8XX 


USER  TASKS 


FDMDSE 


BU  1101 


Figure  5-1     FDM  Dispatcher  Tvisk  Group 
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FDMDSX 

FDMDSD 

...FDD 

FDMDIS 
FDMDSE 


FDM  Dispatcher  Executive,  performs  the  monitoring  function  and  in- 
vokes FDMDIS  when  a  transaction  key  is  pushed  or  a  transaction  index 
is  entered. 

FDM  Dispatch  Director,  allows  the  host  operator  to  command 
FDMDSX  to  start  or  stop  using  a  specific  terminal,  or  to  completely  re- 
start the  dispatching  function. 

FDM  Dispatch  Director,  is  invoked  by  the  host  operator  to  communicate 
with  FDMDSD.  On  DPM-PLUS  systems  this  is  a  separate  task.  On 
DPM  systems  FDMDSD  is  installed  under 'his  name. 

FDM  Dispatcher,  is  invoked  by  FDMDSX.  It  performs  a  table  lookup  in 
the  FDM  Dispatch  File  to  select  and  invoke  a  user-written  task. 

FDM  Dispatch  Error  Reporter,  prints  error  messages  on  behalf  of 
FDMDSX. 
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5.2    FDM  DISPATCH  FILE 

The  default  name  of  the  Dispatch  File  is  FD:[  152, 10] FDMDSF.DAT.  It  is  a  sequentially-accessed  set 
of  up  to  32,767  variable-length  records  (80  characters  maximum).  The  interpretation  of  these  records  is 
specified  on  subsequent  pages.  Each  record  associates  a  specific  transaction  key  or  transaction  index 
from  a  specific  terminal  with  a  specific  user  task  (although  the  mapping  will  commonly  be  many-to- 
one).  A  typical  instance  of  this  file  might  be  as  follows: 


SBl: 
SBl: 
SBl: 
SBl: 
SBl: 
SBl: 
SBl: 

• 

SB77 
SB77 
SB77 
SB77 
SB77 

• 

SB41: 
SB41: 


KEY=A 
KEY=B 
KEY=C 
KEY=D 
KEY=E 
KEY=F 
KEY=* 

KEY=A 
KEY=B 
KEY=C 
KEY=D 
KEY=* 

IDX=01 
IDX=02 


POLICE 

FIRE 

PROPAS 

TEMPOR 

NIGHT 

DAY 

WSDEMO 

TOTALS 

MANPWR 

NIGHT 

DAY 

WSDEMO 

TOTALS 
INVOIC 


GUARD  SHACK,  KEY  1  ALERTS  TOWN  POLICE 

GUARD  SHACK,  KEY  2  CALLS  FIRE  DEPT. 

GUARD  SHACK,  KEY  3  CHECKS  PROPERTY  PASSES 

GUARD  SHACK,  KEY  4  LOGS  TEMPORARY  WORKERS 

GUARD  SHACK,  KEY  5  TURNS  ON  STREET  LIGHTS 

GUARD  SHACK,  KEY  6  TURNS  OFF  STREET  LIGHTS 

GUARD  SHACK,  OTHER  KEYS  TEST  TERMINAL 


PLANT  MGR, 
PLANT  MGR, 
PLANT  MGR, 
PLANT  MGR, 
PLANT  MGR, 


KEY  1  GIVES  PRODUCTION  TOTALS 
KEY  2  SHOWS  MANPOWER  CHARGES 
KEY  3  TURNS  ON  STREET  LIGHTS 
KEY  4  TURNS  OFF  STREET  LIGHTS 
OTHER  KEYS  TEST  TERMINAL 


ACCOUNTING,  GIVES  PRODUCTION  TOTALS 
ACCOUNTING,  PRODUCES  INVOICES 


SB42:  IDX=01  JOBSTA  ;  ORDER  ENTRY,  REPORTS  OF  JOB  STATUS 

SB*  KEY=I  UPDATE  ;  ANY  RT803,  UPDATE  PRODUCTION  DATA 

SB*  KEY=J  OVERTI  ;  SUPERVISORY  KEY  ALLOWS  OVERTIME  LOG-OUT 

SB*  IDX=99  WEATHR  ;  ANY  DPM01  TERMINAL,  GIVE  WEATHER  FORECAST 

SB*  IDX=66  FDMDST  ;  ANY  DPM01  TERMINAL,  DISPATCHER  TESTER 

SB*  KEY=H  FDMDST  ;  ANY  RT805,  KEY  8,  DISPATCHER  TESTER 

SB*  IDX=**  TREK  ;  ANY  DPM01  TERMINAL,  RUN  STAR-TREK  GAME 

SB88.:  KEY=^*  DEVELO  ;  DEVELOPMENT  TERMINAL  FOR  PROGRAMMER 

SB*  KEY=*  FDMCAT  ;  ANY  RT80X  TERMINAL,  DISPATCHER  CATCHER 

//    NOW  LIST  ALL  TERMINALS,  NOT  EXPLICITLY  LISTED  ABOVE,  TO  BE  USED, 


SB3: 
SB7: 
SB10: 
SBll: 
SB64. : 
SB6  5. : 


THESE  RECORDS  ARE  IGNORED  BY  FDMDIS, 
BUT  ARE  USED  BY  FDMDSD  IN  STARTING 
THE  DISPATCHER  (FDD  BEGIN)  TO  COMMAND 
FDMDSX  TO  USE  THESE  TERMINALS. 


END  OF  TERMINAL  LIST. 
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Records  in  the  Dispatch  File  that  begin  with  a  semi-colon  (;)  or  with  an  exclamation  point  (!)  are 
treated  as  comments  and  ignored.  Records  in  the  Dispatch  File  that  begin  with  'SB'  are  data  records.  A 
record  beginning  with  a  slash  (/)  marks  the  end  of  the  explicit  data  records;  FDMDIS  will  stop  search- 
ing the  Dispatch  File  at  this  point,  and  FDMDSD  will  stop  validating  records.  Terminals  that  are  listed 
after  this  point  will  be  started  by  FDD  during  a  BEGIN  operation.  The  use  of  these  implicit  data  re- 
cords is  illustrated  on  the  previous  page.  Records  which  are  neither  comment  records  nor  data  records, 
and  which  do  not  begin  with  a  slash,  are  invalid. 

Each  data  record  contains  three  data  items: 


1.  Terminal  name 

2.  Transaction  key  or  index 

3.  Task  name. 

These  data  records  are  examined  by  two  tasks,  FDMDSD  and  FDMDIS.  When  the  user  types  FDD 
BEGIN,  FDMDSD  reads  the  Dispatch  File  to  determine  which  terminals  to  use;  FDMDSD  also 
checks  the  data  records  for  validity.  When  a  transaction  is  initiated  through  the  Dispatcher,  FDMDIS 
reads  the  Dispatch  File  to  determine  which  task  to  request. 

Both  FDMDSD  and  FDMDIS  scan  data  records  from  left  to  right,  expecting  to  find  terminal  name, 
key  or  index,  and  task  name  in  that  order.  Both  begin  scanning  for  a  valid  transaction  key  or  index  item 
in  the  column  to  the  right  of  a  valid  terminal  name;  a  separator  is  not  required.  Both  begin  scanning  for 
a  valid  task  name  in  the  column  to  the  right  of  a  valid  transaction  key  or  index;  a  non-alphabetic  charac- 
ter must  immediately  precede  the  task  name. 

A  valid  terminal  name  has  one  of  the  three  forms  below: 


SBnnn: 

SBddd.: 

SB* 


nnn  is  the  octal  device  number 
ddd  is  the  decimal  device  number 
*  identifies  a  wild-card  entry 


A  valid  transaction  key  item  consists  of  an  equal  sign,  followed  by  a  single  alphabetic  character  in  the 
range  of  A-  J  or  a  *.  The  *  identifies  a  wild-card  entry;  A  J  corresponds  to  the  codes  for  the  transaction 
keys  on  RT80x  terminals,  as  i  hown  in  Figure  5-2. 

A  valid  transaction  index  item  consists  of  an  equal  sign,  followed  by  a  two-digit  number  in  the  range  of 
01  99  or  a  **.  The  **  identifies  a  wild-card  entry;  01  99  corresponds  to  the  valid  range  of  the  transac- 
tion index  which  may  be  entered  from  a  multiplexer-connected  terminal. 

A  valid  task  name  is  16  alphanumeric  characters,  of  which  the  first  character  must  be  alphabetic.  .Ml 
tasks  that  are  invoked  through  the  Dispatcher  must  be  installed. 

The  Dispatch  file  is  searched  sequentially.  Therefore,  it  is  recommended  that  records  be  inserted  in  the 
Dispatch  File  in  descending  order  of  frequency  of  terminal  usage. 

A  wild-card  specifier  in  the  terminal  name  field  indicates  to  FDMDIS  that  this  record  applies  to  any 
terminal.  A  wild-card  specifier  in  the  transaction  key/index  field  indicates  to  FDMDIS  that  this  record 
applies  to  any  key/index  from  this  terminal.  A  record  may  contain  wild-card  specifiers  in  both  the  ter- 
minal name  and  transaction  key/index  fields,  which  indicates  to  FDMDIS  that  this  record  applies  to  all 
transaction  keys  or  transaction  indices  from  all  terminals.  Note  that  a  record  applies  to  either  RTXOI/ 
RT803/RT805  terminals  or  to  terminals  connected  via  DPMOl/VTl  10  multiplexers,  but  not  to  both. 
Transaction  keys  are  always  one  character,  and  transaction  indices  are  always  two  characters. 
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RT801 
TIME  AND 
ATTENDANCE 
STATION 


RT803 

BASIC  WORK  STATION 


RT805 

AREA  WORK  STATION 


■u  noa 


Figure  5-2    Codes  for  Transaction  Keys  and  Keyswitclies  on  RT80x  Terminals 
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5.3     FDM  DISPATCHER  INTERFACES 

The  KDM  Dispatcher  iniert'accs  consist  of:  the  interfaces  to  the  tasks  FDMDSX.  ...FDD,  FDMDSE, 
and  FDMDIS  defined  below;  the  user's  interface  to  the  Dispatch  File  through  an  editor  (e.g.,  via  EDI 
and  FDT);  and  the  build-time  interface  via  FDMDIS.BLD  (refer  to  the  DPM/DPM-PLLS  System 
Generation  and  Management  Guide). 

It  is  necessary  that  each  user-written  task  invoked  by  the  FDM  Dispatcher  be  installed  under  RSX- 
1 1  M.  If  a  task  is  not  installed,  a  run-time  error  message  will  be  printed  by  I  DMDIS. 

The  global  interface  between  the  Dispatcher  Task  Group  and  user-written  tasks  involves  bidirectional 
communications  between  the  Dispatcher  and  the  dispatched  task,  using  the  RSX-1  IM  SFND  and  RE- 
CHI  V  (SD.ATS  and  RCVDS)  directives.  When  a  transaction  key  is  pushed  on  one  of  the  RTXOx  termi- 
nals or  when  a  transaction  index  is  entered  on  one  of  the  multiplexer-connected  terminals  currently 
under  control  of  the  Dispatcher.  FDMDIS  will  SEND  a  data  block  describing  the  eveni  to  the  specified 
dispatched  task.  When  the  dispatched  task  has  finished  with  the  terminal,  it  must  send  a  data  block  to 
FDMDSX,  requesting  FDMDSX  to  restart  the  monitoring  function  for  this  terminal. 

The  F  DM  Dispatcher  makes  no  attempt  to  automatically  reclaim  DPM  terminals  which  are  not  in  use. 
Therefore,  if  a  dispatched  task  is  aborted  before  informing  FDMDSX  to  restart  monitoring  a  terminal, 
the  host  operator  must  tell  FDMT  o  restart  using  this  terminal  through  ...FDD. 

In  addition  to  the  tasks  which  constitute  the  FDM  Dispatcher  package,  three  tasks  arc  included  for 
testing  and  demonstrating  the  package:  these  tasks  are  FDMDST.  FDMCAT,  and  SPFI-DY. 

5.3.1  FDMDSX  Interfaces 

FDMDSX  expects  to  RFXI-IV  from  dispatched  tasks  a  standard  l3-wi)rd  data  block  expressing  a 
START  command.  The  first  word  of  this  data  block  must  contain  a  START  command  code  (  +  I ).  and 
the  second  word  of  this  data  block  must  contain  the  device  number  of  the  terminal  (the  nnn  of  SBnnn:); 
the  remaining  1  1  words  of  the  data  block  are  ignored. 

FDMDSX  may  also  RFC  FIV  a  data  block  expressing  a  STOP  command.  The  first  word  of  this  data 
block  must  contain  a  STOP  command  code  (  +  2),  and  the  second  word  must  contain  the  device  num- 
ber; the  remaining  I  I  words  of  the  data  block  are  ignored.  FDMDSX  will  not  execute  the  STOP  com- 
inand  unless  it  is  sent  by  a  task  which  is  INStalled  under  a  6-character  task  name  which  ends  in  IDD. 

FDMDSX  also  sends  error  data  blocks  to  FDMDSE.  If  FDMDSE  cannot  run.  perhaps  due  to  shortage 
of  main  memory.  FDMDSX  will  eventually  suspend  itself  waiting  for  FDMDSI:  to  report  these  errors. 

5.3.2  ...FDD-to-Operator  Interface 

FDD  is  the  operator  interface  to  the  FDM  Dispatcher  and  is  described  in  the  DFM/DPM-PLIS  Sys- 
tem Generation  and  Manugement  Guide. 

5.3.3  FDMDSE-to-Operator  Interface 

The  purpose  of  FDMDSE  is  to  print  error  messages  for  FDMDSX  in  order  to  reduce  the  si/e  and  com- 
plexity of  FDMDSX.  There  are  two  generic  types  of  errors  detected  by  FDMDSX:  invalid  commands 
sent  to  FDMDSX.  and  I/O  errors  resulting  from  transfers  to  the  DPM  terminals. 

FDMDSE  reports  all  errors  on  behalf  of  FDMDSX  in  expanded  messages  which  are  intended  to  be 
self-explanatory.  Each  error  message  begins  with  'FDMDSX'.  Error  messages  are  reported  on  the  de- 
vice which  was  selected  when  the  Dispatcher  was  built. 
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5.3.4  FDMDIS  Interfaces 

FDMDIS  is  invoked  by  FDMDSX  when  a  transaction  key  (switch)  is  pushed  or  when  a  transaction 
index  is  entered.  The  event  description  is  delivered  via  a  SEND-RECEIV  data  block. 

FDMDIS  searches  the  set  of  dispatch  records  for  the  first  match  between  the  transaction  event  and  a 
dispatch  record.  FDMDIS  first  searches  the  set  of  fast-access  records  which  are  (conditionally)  com- 
piled with  FDMDIS;  if  no  match  is  found  among  the  fast-access  records,  FDMDIS  next  searches  the 
explicit  records  of  the  Dispatch  file.  Fast-access  records  are  searched  in  the  chronological  order  in 
which  they  were  entered  by  the  user  (via  FDMDIS. BLD);  the  records  in  the  Dispatch  file  are  searched 
sequentially. 

For  the  search  to  succeed,  a  match  is  required  on  both  device  name  and  transaction  key  or  index.  A 
match  on  device  name  requires  that  the  event  device  name  match  the  data  record  device  name,  or  that 
tne  data  record  device  name  be  a  wild-card  (SB*).  For  RT80x  terminals,  a  match  on  transaction  key 
means  that  the  code  for  the  key  pushed  (A-J)  must  match  the  key  in  the  data  record,  or  that  the  data 
record  must  have  a  wild-card  (KEY  =  *).  For  multiplexer-connected  terminals,  a  match  on  transaction 
index  means  that  the  1-  or  2-digit  index  entered  on  the  terminal  (1-99)  must  match  the  index  in  the 
data  record  (01-99),  or  that  the  data  record  must  have  a  wild-card  (KEY  =  **).  Note  that  a  1-digit 
index  entered  on  a  DPMOl/VTl  10  terminal  will  be  mapped  into  a  2-digit  index  (in  the  Dispatch  File, 
transaction  keys  are  always  one  character,  and  transaction  indices  are  always  two  digits). 

If  the  Dispatch  File  is  misnamed  or  missing,  FDMDIS  will  print  an  error  message  on  the  device  se- 
lected when  the  Dispatcher  was  built. 

If  the  Dispatch  File  does  not  contain  an  entry  corresponding  to  the  transaction  key  pushed  or  to  the 
transaction  index  entered,  or  if  the  designated  task  to  be  dispatched  is  not  INStalled,  FDMDIS  will 
report  the  error  on  the  terminal  selected  when  the  Dispatcher  was  built. 

When  no  errors  interfere,  FDMDIS  sends  to  the  designated  task  a  1 3-word  data  block  describing  the 
event,  and  then  requests  that  task's  execution.  The  data  block  is  as  follows: 


Word  1 


is  the  device  number  of  this  terminal  (the  nnn-field  of  SBnnn:). 


Word  2  contains  the  transaction  key  or  transaction  index.  For  transaction  in- 

itiation from  an  RT801,  RT803,  or  RT805,  the  high  order  byte  is  mean- 
ingless and  the  low  order  byte  contains  the  ASCII  code  of  the  transaction 
key  which  was  pushed:  A-J.  Note  that  A-H  come  only  from  RT805s,  I 
comes  only  from  RT803s,  and  J  can  come  from  any  RT80x  terminal's 
keyswitch.  For  transactions  initiated  from  a  multiplexer-connected  termi- 
nal, word  2  will  contain  the  two-digit,  ASCII-encoded  transaction  index 
in  the  range  of  01-99.  If  the  multiplexer  operator  only  entered  one  digit 
(1-9),  it  will  be  conveyed  as  two  digits  (01-09). 
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•    Words  3-9 

contain  the  time  at  which  the  key  was  pushed.  This  time-stamp  is  six 

words,  containing  binary  values,  as  follows: 

Word  3  =  year 

(77-99) 

Word  4  =  month 

(1-12) 

Word  5  =  day 

(1-31) 

Word  6  =  hour 

(0-23) 

Word  7  =  minute 

(0-59) 

Word  8  =  second 

(0-59) 

Word  9  =  tick 

(0-59  at  60  Hz,  or  0-49  at  50  Hz) 

•  Word  10  is  the  record  number  of  the  first  record  in  the  Dispatch  File  which 

matched  this  terminal  and  this  transaction  key  (multiple  entries  are  le- 
galX 

•  Word  1 1  is  this  terminal's  dispatch  sequence  number.  It  is  a  count  of  the  number 

of  times  that  FDMDSX  has  recorded  a  transaction  key  pushed  (or  trans- 
action index  entered)  on  this  terminal.  The  count  wraps  around  to  0  after 
32,767.  This  count  is  associated  with  the  terminal,  not  with  the  dis- 
patched task  or  with  the  specific  transaction  key  or  transaction  index  on 
this  terminal.  This  count  is  initialized  to  0  whenever  FDMDSX  is  in- 
itialized by  FDD  BEGIN. 

•  Words  12-13  comprise  a  four-byte  total  sequence  number  for  FDMDSX.  It  is  in- 

itialized when  FDMDSX  is  initialized  and  wraps  around  to  0  after  the 
highest  positive  32-bit  number. 

Note  that  FDMDIS  only  REQUESTS  the  named  task.  It  does  not  spawn  multiple  copies  of  the  same 
task. 

5.3.5  FDMDSX  (FDM  Dispatcher  Test  Task) 

FDMDST  is  a  sample  task,  included  with  the  FDM  Dispatcher  package,  which  may  be  used  to  verify 
operation  of  the  package.  FDMDST  is  compatible  with  RT801,  RT803,  and  RT805  terminals,  as  well 
as  conventional  (LA36  and  VT52)  terminals  connected  via  DPMOl/VTl  10  ports. 

FDMDST,  when  invoked  via  the  FDM  Dispatcher,  runs  one  terminal  at  a  time.  When  it  has  finished 
using  a  terminal,  it  checks  its  receive  queue  to  determine  if  FDMDIS  has  commanded  it  to  use  other 
terminals. 

When  FDMDST  is  invoked  via  the  Supervisor  Key  on  an  RT80x  terminal,  it  flashes  the  ERROR  light 
on  that  termin?'  -^nd  then  returns  control  of  that  terminal  to  FDMDSX.  When  FDMDST  is  invoked 
via  a  transaction  key  on  an  RT803  or  RT805  terminal,  it  displays  a  message  on  that  terminal,  and  waits 
for  its  operator  to  push  SEND  or  CANCEL;  then  FDMDST  returns  control  of  that  terminal  to 
FDMDSX.  When  FDMDST  is  invoked  from  a  terminal  connected  to  a  DPMOl/VTl  10,  it  prints  a 
prompting  message  on  that  terminal,  and  waits  for  its  operator  to  hit  the  carriage  return  key;  then 
FDMDST  returns  control  of  that  terminal  to  FDMDSX. 

5.3.6  FDMCAT  (FDM  Dispatcher  Catcher) 

FDMCAT  may  be  used  during  development  of  FDM  Dispatcher-oriented  DPM  systems.  When  invoked 
by  FDMDIS,  it  reports  the  terminal  and  transaction  key  or  index  in  whose  behalf  it  was  invoked,  and 
then  returns  control  of  that  terminal  to  FDMDSX. 
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5.3.7  SPEEDY  (Dispatcher  Test  Task) 

SPEEDY  is  a  sample  task,  included  with  the  FDM  Dispatcher  package,  which  may  be  used  to  verify 
operation  of  the  package.  SPEEDY  is  compatible  with  RT801,  RT803,  and  RT805  terminals,  as  well  as 
conventional  (LA36  and  VT52)  terminals  connected  via  DPMOl/VTI  10  ports. 

When  invoked  via  the  FDM  Dispatcher,  SPEEDY  runs  one  terminal  at  a  time.  When  it  has  finished 
using  a  terminal,  it  checks  its  receive  queue  to  determine  if  FDMDIS  has  commanded  it  to  use  other 
terminals. 

When  SPEEDY  is  invoked  for  an  RT801  terminal,  it  flashes  the  ERROR  light  on  that  terminal,  and 
then  returns  control  of  that  terminal  to  FDMDSX.  When  SPEEDY  is  invoked  for  an  RT803  or  RT805 
terminal,  it  displays  a  message  on  that  terminal,  and  immediately  returns  control  of  that  terminal  to 
FDMDSX.  When  FDMDST  is  invoked  for  a  terminal  connected  to  a  DPlv  Ol/VTI  10,  it  prints  a  mes- 
sage on  that  terminal  and  immediately  returns  control  of  that  terminal  to  FDMDSX. 

5.3.8  FDMSAR  (COBOL  Send/ Receive  Module) 

FDMSAR  is  a  set  of  four  subroutines  through  which  user  tasks  may  communicate  with  the  Dispatcher 
Task  Group.  Although  FDMSAR  is  only  needed  by  tasks  written  in  COBOL,  it  can  be  used  by  tasks 
written  in  FORTRAN  or  MACRO.  These  four  subroutines  (FXSTAR,  FXSTOP,  FXRCVD,  and 
FXRCVX)  are  detailed  below: 

CALL  "FXSTAR"  USING  DEVNUM. 

This  subroutine  will  send  a  START  command  to  FDMDSX,  requesting  it  to  stari  using  the  terminal 
whose  device  number  is  DEVNUM. 


CALL  "FXSTOP"  USING  DEVNUM. 

This  subroutine  will  send  a  STOP  command  to  FDMDSX,  requesting  it  to  stop  using  the  terminal 
whose  device  number  is  DEVNUM.  This  subroutine  should  not  be  used  by  most  application  tasks  for 
the  reasons  noted  in  Sections  5.3.1  and  5.4. 


CALL  "FXRCVD"  USING  RESULT,  BUFFER. 

This  subroutine  is  intended  to  be  used  by  an  application  task  to  acquire  a  data  block  (sent  by  FDMDIS) 
which  describes  the  dispatching  event. 

BUFFER  is  a  15-word  block  in  working  storage.  If  data  is  received,  the  data  will  be  in  the  last  13  words 
of  BUFFER,  and  the  name  of  the  task  which  sent  the  data  will  be  in  the  first  2  words  of  BUFFER. 

RESULT  is  a  one-word  variable  in  working  storage  which  will  contain  the  encoded  result  of  this  call: 

"BA"  =  Bad  Address  -  RESULT  or  BUFFER  is 
not  word-aligned,  or  part  of  BUFFER  is 
outside  of  this  task's  address  space.  Fat- 
al programming  error. 

"WT"  =  Wrong  Task  -  data  was  received,  but 
not  from  FDMDIS. 
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"ND"  =     No  Data  received  -  BUFFER  should  be 
ignored. 

"OK"  =     Successfully      received      data      from 
FDMDIS. 

IF  RESULT  =  "OK",  the  RAD50  encoded  name  of  FDMDIS  will  be  in  words  1-2  of  BUFFER,  and 
the  dispatching  event  data  block  (described  in  Section  5.3.4)  will  be  in  words  3-15  of  BUFFER. 

CALL  "FXRCVX"  USING  RESULT,  BUFFER. 

This  subroutine  is  used  by  an  application  task  to  acquire  a  data  block  (sent  by  FDMDIS)  or  to  cease 
execution  of  this  task. 

If  a  data  block  has  been  sent,  then  a  call  to  FXRCVX  will  behave  exactly  as  would  a  call  to  FXRCVD. 

If  a  data  block  has  not  been  sent,  then  a  call  to  FXRCVX  will  cause  this  task  to  exit.  See  the  note  in 
Section  5.4. 

5.4     FDM  DISPATCHER  APPLICATION  NOTES 

Tasks  which  are  invoked  from  the  FDM  Dispatcher  must  exit  by  a  Receive-Data-or-Exit  to  prevent  loss 
of  transaction  events;  this  is  particularly  important  for  tasks  which  use  multiple  terminals.  COBOL 
tasks  must  use  FXRCVX.  FORTRAN  tasks  may  use  either  FXRCVX  or  RECOEX.  MACRO  tasks 
may  use  FXRCVX  or  RCVXS.  Note  that  before  executing  a  Receive-Data-or-Exit,  the  task  must  have 
all  files  closed  and  should  not  have  any  I/O  operations  pending. 

The  STOP  command,  described  in  Section  5.3.1,  is  primarily  intended  for  use  by  FDMDSD.  However, 
it  could  be  used  by  an  application  task  to  temporarily  take  control  of  terminals  from  the  dispatcher. 
This  mechanism  could  be  used  for  fast-response  labor  tracking  during  shift  changes. 

The  size  of  FDMDSX  is  dependent  upon  options  selected  when  it  is  built  through  FDMDIS. BLD.  The 
size  ranges  from  less  than  1024  words  to  4096  words,  depending  primarily  upon  the  number  of  termi- 
nals used.  As  long  as  the  number  of  terminals  is  less  than  70,  FDMDSX  should  be  under  2048  words. 

The  size  of  FDMDIS  is  less  than  4000  words,  if  fast-access  records  are  not  included.  Each  fast-access 
record  adds  8  words  to  the  size  of  FDMDIS.  FDMDSD  is  also  less  than  4000  words,  and  FDMDSE  is 
less  than  1000  words.  FDMDST,  FDMCAT,  and  SPEEDY  are  each  less  than  8192  words. 

In  a  system  with  no  excess  main  memory,  it  may  be  advantageous  to  allocate  a  task  partition  to  be 
shared  by  FDMDIS,  FDMDSD,  and  FDMDSE.  The  partition  size  need  be  no  larger  than  FDMDIS,  as 
FDMDSD  and  FDMDSE  are  always  smaller  than  FDMDIS.  There  is  no  advantage  in  allocating  a 
partition  for  FDMDSX,  since  FDMDSX  cannot  share  a  task  partition  with  any  other  task. 

If  the  response  time  to  terminals  needs  is  to  be  improved,  the  following  suggestions  should  be  consid- 
ered before  redesigning  application  tasks: 

1.  Sort  the  dispatch  file  to  place  the  most  time-critical  tasks  or  most  time-critical  terminals 
first.  This  will  decrease  file-access  overhead  for  a  large  dispatch  file. 

2.  Shrink  the  dispatch  file,  by  using  wildcard  specifiers  or  by  removing  comments  from  the  file. 

3.  FIX  one  or  more  of  the  time-critical  applications  tasks  in  main  memory. 
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4.  FIX  FDMDIS  in  main  memory.  If  FDMDIS  is  to  be  FIXcd.  it  cannot  be  in  a  shared  task 
partition. 

5.  Regenerate  FDMDIS  to  include  fast-access  records  (by  using  FDMDIS. BLD).  Fast-access 
records  are  interpreted  the  same  way  as  explicit  data  records  from  the  dispatch  file  but,  if 
included,  arc  searched  by  FDMDIS  prior  to  searching  the  dispatch  file. 

6.  Apply  ihc  global  patches  defined  in  Section  2.5.  This  mechanism  is  valid  only  for  multi- 
threaded tasks  using  FDMIJTR  (or  FDMUTX  or  FDMUTG). 

5.5    SAMPLE  TASKS 

Two  sample  user  tasks  (the  first  written  in  FORTRAN,  the  second  written  in  COBOL)  are  shown  on 
the  following  pages.  These  two  tasks,  FTRANS  and  CTRANS,  are  (with  the  exception  of  minor  differ- 
ences in  error-handling)  functionally  identical: 

1.  Both  tasks  are  designed  to  be  initiated  from  RT805  terminals  through  the  FDM  Dispatcher. 
Both  tasks  support  multi-threaded  communications,  through  FDMUTR,  to  several  RT805 
terminals  concurrently. 

2.  Each  task,  when  initiated,  queries  the  operator  at  the  RT8()5  terminal  for  the  following  infor- 
mation: 

employee  (T5)  badge 

job  I.D.  (T3)  card 

part  number  (T3)  card 

number  of  parts  received 

number  of  parts  accepted 

3.  When  the  operator  has  entered  all  of  the  above  data,  the  task  records  this  transaction  in  a 
data  file  and  then  returns  control  of  this  RT805  to  the  FDM  Dispatcher. 

These  tasks  are  intended  to  illustrate  mechanisms  for: 

9      Multi-threaded  communications  with  FDM  terminals  via  FDMUTR. 

•  The  bidirectional  exchange  of  terminal  "ownership"  with  the  FDM  Dispatcher. 

While  these  tasks  are  illustrative,  they  should  not  be  viewed  as  a  cookbook;  the  writer  of  user  tasks 
should  consider: 

•  Alternative  methods  of  error  recovery,  for  terminals  and  for  files. 

•  Realistic  methods  for  validation  of  data  entered. 

•  More  appropriate  error  messages. 

A  third  sample  user  task  is  included  as  part  of  the  FDM  Dispatcher  on  the  distribution  kit.  BTRANS, 
written  in  BASIC-PLUS-2,  is  functionally  equivalent  to  FTRANS  and  CTRANS. 
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FORTRAN  IV-PLUS 

FTRANS.FTN 

0001 


0002 
0003 
0004 
0005 
0006 

0007 
OOOb 
0009 
0010 

0011 
0012 
0013 
0014 
0015 
0016 


0017 


C 
C 
C 
C 

c 


c 

c 


V02-51 
/RO/WR 
PROGRAM 
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FTRANS 


SAMPLE  TRANSACTION  ACQUISITION  PROGRAM 

THIS  TASK  IS  DESIGNED  TO  BE  INVOKED  THROUGH  THE  FDM  DISPATCHER. 

IT  HANDLES  MANY  TERMINALS  CONCURRENTLY. 


IMPLICIT  INTEGER*2  (A-Z) 
INCLUDE  'FTRANS. MAX' 
PARAMETER  MAXACT=5 
PARAMETER  LUNERR=1 
PARAMETER  LUNFIL«2 

INTEGER*2  TSTATE (MAXACT) 
L0GICAL*2  SIM(MAXACT) 
INTEGER*2  DEVNUM (MAXACT) 
INTEGER*2  RCVBUF(15) 

INTEGER*2  TEVENT(13) 


EQUIVALENCE 
EQUIVALENCl 
EQUIVALENCE 
BYTE  KEYCOD 
EQUIVALENCE 


(TEVENT,RCVBUF(3) ) 
(SBADDR,TEVENT(1) ) 
(KEYWRD,TEVENT(2) ) 

(KEYCOD, KEYWRD) 


L0GICAL*2  NEWFIL 


1  INCLUDE  NUMBER  OF  TERMINALS. 

MAX.  NUKBER  OF  ACTIVE  TERMINALS. 
LUN  FOR  REPORTING  ERRORS. 
LUN  FOR  FILE  I/O. 

TERMIN'.L  STATE  VARIABLES. 

TRUE  IF  SIMULATED  RT805'S 

REMEMBER  DEVICE  NUMBER 

BUFFER  FOR  RECEIPT  OF  TRANSACTION 

EVENT  PACKETS  FROM  FDMDIS. 

THE  TRANSACTION  EVENT  PACKET  IS 

IN  THE  BUFFER,  WORDS  3-15. 

DEVICE  NUMBER  IS  WORD  1  OF  EVENT  PKT. 

KEY/INDEX  WORD  IS  WORD  2  OF  EVENT  PKT. 

KEY  CODE  IS  IN  LOW-ORDER  BYTE  OF 

THE  KEY/INDEX  WORD. 

REST  OF  EVENT  PACKET  IS  NOT  USED 

BY  THIS  TASK. 


1  TRUE  IF  MAKING  NEW  TRANSACTION  FILE, 


0018 

ooiy 

0020 


0021 
0022 
0023 
0024 
0025 

0026 


0027 
0028 


0029 
0030 
0031 


C 
C 

c 

c 


c 
c 

c 


c 
c 
c 


c 
c 


INTEGER*2  STAVEC(6) 
EQUIVALENCE  ( RESULT, STAVEC) 
EQUIVALENCE  (BYTGOT ,STAVEC ( 5) ) 


STATUS  VECTOR  FOR  FDSTAT  CALLS, 
WORD  1  =  RESULT  OF  LAST  I/O. 
WORD  5  =  BYTE  COUNT  OF  REPLY. 


NOW  LAYOUT  THE  DATA  SPACE  TO  BE  USED  FOR  RESPONSES  FROM  THE  RT805'S, 


PARAMETER  T5BHDR=01 ,  T'"  ^AT=09  ,T5BEND=  14 
PARAMETER  T3JHDR=15,T   l)AT=19  ,T3JEND=40 
PARAMETER  T3PHDR=4  1  ,T.  t^DAT=4  5  ,T3PEND=66 
PARAMETER  KPRHDR=67 ,KPRDAT=7 1 ,KPREND=102 
PARAMETER  KPAHDR=10  3 , KPADAT= 107 ,KPAEND= 1 38 


!  T-5  BADGE  =  EMPLOYEE  NO, 
!  T-3  22-COL.  JOB  CARD. 
!  T-3  22-COL.  PART  NO. 
!  KEYPAD  RECEIVED  COUNT. 
!  KEYPAD  ACCEPTED  COUNT. 


BYTE  TREPLY(KPAEND, MAXACT) 


TERMINAL  REPLY  BUFFER. 


NOW  LAYOUT  THE  DATA  FOR  TERMINAL  PROMPTING  MESSAGES. 

INTEGER*4  T5BPRO(8) ,T3JPRO(8)  ,T3PPRO(8)  ,KPRPR0(7)  ,KPAPF  )(7) 
INTEGER*4  PLEASE  (  3) , THANKS ( 3) 

NOW  LAYOUT  THE  DATA  FOR  THE  DISK  BUFFER. 

BYTE  BUFFER(IOO) 

PARAMETER  J0BB»1 , PARB=25 , RECB=49 , ACCB=55 , SEQB=61 , BDGB=67 

PARAMETER  DEVB=7 7 ,DATB=8  3 ,TIMB=9  3 
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FORTRAN  IV- 
FTRANS.FTN 
C 
C 
C 
v" 
C 
C 

c 

0032 

0033 
0034 
0U35 
00  36 
0037 
0038 

C 

c 
c 

0039 

C 

C-- 

C 

C 

C 

0040 

0041 

0042 

0043 

0044 

0045 


0046 


0047 


0048 
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C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 


NOW  DEFINE  THE  PROMPTING  MESSAGES. 

DATA  T5BPR0/'PLEA' , 'SE  I','NSER','T  YO'.'UR  P ' , ' UNCH ' , ' ED  B','ADGE'/ 
DATA  T3JPR0/ 'PLEA' , 'SE  I','NSER','T  TH','E  JO'.'B  I.','D.  C','ARD  '/ 
DATA  T3PPR0/'PLEA' , 'SE  I','NSER','T  TH ' , ' E  PA','RT  N','0.  C','ARD  '/ 
DATA  KPRPRO/'HOW  ','MANY','  PAR','TS  D'.'ID  Y','OU  G','ET?  '/ 
DATA  KPAPRO/'  -  H','OW  M'.'ANY  '.'DID  ','YOU  ' , ' ACCE ' , ' PT?  '/ 
DATA  PLEASE/ 'PLEA' , 'SE  W','AIT.'/ 
DATA  THANKS/ 'THAN' , 'K  YO','U.   '/ 


NOW  DEFINE  THE  FORMAT  FOR  THE  DISK  BUFFER. 


DATA  BUFFER/74*'  ','S','B',3' 


',20*'  •/ 


TASK  EXECUTION  BEGINS  HERE. 


!  CLEAR  COUNT  OF  ACTIVE  TERMINALS, 


020 

C 

C 

C 

100 

C 

c 
c 
c 
c 

c 
c 
c 
c 


ACTIVS  =  0 

CALL  FDINIT  (RESULT, MAXACT) 

IF  (RESULT. NE. 'OK' )   STOP  'DUE  TO  BAD  RESULT  OF  FDINIT' 

DO  020  I  =  1, MAXACT 

SIM(I)  =  .FALSE. 

TSTATE(I)  =  'UN'  !  SET  ALL  TERMINALS  TO  UNUSED. 


CONTINUE 


THIS  IS  THE  ENTRY  POINT  FROM  WHICH  WE  TRY  TO 
ACQUIRE  A  DATA  PACKET  FROM  THE  DISPATCHER 
-OR-  CEASE  TASK  EXECUTION.   NOTE  THAT,  AT  THIS 
POINT  IN  THE  TASK,  ALL  FILES  ARE  CLOSED,  AND 
NO  I/O  IS  PENDING. 


CALL  FXRCVX  ( RESULT , RCVBUF) 

SINCE  TASK  EXIT  DID  NOT  OCCUR,  WE  OBVIOUSLY  GOT  A  DATA  PACKET  FROM 
SOME  TASK.   NOW  MAKE  SURE  IT  CAME  FROM  THE  RIGHT  TASK  (FDMDIS). 

IF  (RESULT. NE. 'OK' )   GO  TO  100   !  IF  DATA  FROM  WRONG  TASK,  IGNORE  IT 
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FTRANS.FTN 
C 
C 

c 
c 
c 
c 
c 
c 


/RO/WR 


0049 

0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 

0058 

0059 

0060 

0061 
0062 

006: 


0064 
0065 
0066 
0067 
0068 

0069 

0070 

0071 

0072 

0073 


C 
C 


199 


110 
C 

120 
C 


NOW  THAT  WE  HAVE  A  TRANSACTION  EVENT,  GET  THE  CURRENT  TRANSACTION 
SEQUENCE  NUMBER. 

CALL  ERRSET  (29 , .TRUE ., .TRUE. , .TRUE ., .FALSE . ,15) 

THIS  SUPPRESSES  OTS  COMPLAINTS  ABOUT  NO  SUCH  FILE. 

NEWFIL  =  .TRUE. 

SEQNO  =  0 

OPEN  (UNIT=LUNFIL,  NAME- ' FTRANS . SEQ; 1 ' ,  TYPE»'OLD',  ERR-120) 

READ  (LUNFIL,199,ERR*110)  SEQNO 

FORMAT  ('  '114) 

IF  (SEQNO. LT.l  .OR.  SEQNO .GT  .9998 )   GO  TO  110 

NEWFIL  =  .FALSE. 

CLOSE  (UNIT«LUNFIL) 

IF  (NEWFIL)  GO  TO  130 

OPEN  (UNIT=LUNFIL,  NAME= ' FTRANS .DAT ' ,  TYPE='OLD' 
,ACCESS= 'APPEND' ,  ERR-125) 


C 
125 

C 
130 

C 

c 
c 


GO  TO  200  !  TRANSACTION  FILE  NOW  OPENED. 

NEWFIL  =  .TRUE. 
SEQNO  =  0 

OPEN  (UNIT=LUNFIL,  NAME= ' FTRANS .DAT ' ,  TYPE='NEW',  ERR=140) 

MEW  TRANSACTION  FILE  NOW  OPENED.   WRITE  FILE  HEADER  MESSAGES. 

WRITE  (LUNFIL,139) 

WRITE  (LUNFIL,138) 

WRITE  (LUNFIL,137) 

WRITE  (LUNFIL,136) 

GO  TO  200 


C 
139 

138 

137 

136 

C 

140 

C 

C 

C 

C 

C 

C 

C 


!  FILE  OPENED  +  HEADER  WRITTEN, 


FORMAT  (  '  JOB  IDENTIFICATION ....   PART  NUMBER ' 

,'NO.    NO.    SEQ.   EMPLOY   RT805    TRANSACTION         ') 

FORMAT  (•  CARD  DATA  ENTERED CARD  DATA  ENTERED ' 

,'RCVD   GOOD   NO.    BADGE    USED     DATE  AND   TIME     ') 

FORMAT  (  '  ' 

._...   _.__   -_--   ') 

!  BLANK  LINE. 


FORMAT  ( '  ' ) 

STOP  'DUE  TO  FAILURE  TO  OPEN  FILE' 
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0075 
0076 
0077 
007a 
0079 


0080 
0081 
0082 
0083 


0084 
0085 
0086 
0087 
0088 
0089 
0090 


0091 


209 

210 

C 

C 

C 

C 


220 

C 
C 
230 
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/RO/WR 


CONTINUE         !  THIS  IS  THE  ENTRY  POTNT  USED  WHEN  WE  HAVE  A 

1  TRANSACTION  EVENT.   CHECK  SOME  STUFF,  THEN  TRY 
1  TO  FIRE  UP  THE  TERMINAL. 

IF  (KEYCOD.GE. '@'  .AND.  KEYCOD. LE . ' H ' )   GOTO  210 

WRITE  (LUNERR,209)  SBADDR 

FORMAT  (•  RECEIVED  TRANS.  EVENT  PACKET  FOR  DEVICE  =  SB ',103,':') 

STOP  'DUE  TO  TERMINAL  NOT  A  RT805'   !  THIS  TASK  ONLY  USES  RT805'S, 

CONTINUE 


NOW  SEARCH  FOR  A  TERMINAL  INDEX  TO  USE  FOR  THIS  TERMINAL. 

DO  220  WHO  =  1,MAXACT 

IF  (TSTATE(WHO) .EQ. 'UN')   GO  TO  230      !  USE  FIRST  UNUSED  INDEX. 

CONTINUE 

STOP  'DUE  TO  ALL  TERMINALS  USED' 


C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 


LUN  =  WHO+LUNFIL  !  SET  LUN  :=  TERMINAL  INDEX+2,  AND 

SIM(WHO)  =  KEYCOD. EQ. '§'  !  SET  TRUE  IF  SIMULATED  TERMINAL. 

DEVNUM(WHO)  =  SBADDR  !  REMEMBER  WHICH  TERMINAL  IT  IS. 

CALL  FDCONN  (RESULT, WHO , SBADDR , LUN)  !  GET  CONNECTED. 

IF  (RESULT. NE. 'OK' )   STOP  'DUE  TO  BAD  RESULT  OF  FDCONN' 

TSTATE(WHO)  =  'CO'  !  SET  TERMINAL  STATE  TO  CONNECTED. 

ACTIVS  =  ACTIVS  +  1  !  INCREMENT  COUNT  OF  ACTIVE  TERMINALS. 

WE  ARE  NOW  CONNECTED  TO  THIS  RT805.   NOW  TELL  THE  DISPATCHER  THAT  IT 
CAN  HAVE  CONTROL  OF  THIS  TERMINAL.   NOTE  THAT  THE  DISPATCHER  EXEC.  WILL 
IMMEDIATELY  TRY  TO  TAKE  CONTROL  OF  THIS  TERMINAL,  BUT  IT  WILL  NOT 
ACTUALLY  GET  CONTROL  OF  THIS  TERMINAL  UNTIL  THIS  TASK  EITHER  FINISHES 
THE  TRANSACTION  AND  DISCONNECTS  FROM  THIS  TERMINAL,  OR  UNTIL  THIS  TASK 
EXITS  OR  IS  ABORTED.   TWO  STRATEGIES  ARE  POSSIBLE: 

BY  TELLING  THE  DISPATCHER  IT  CAN  HAVE  THIS  TFRMINAL  BACK  IMMEDIATELY 
AFTER  GETTING  CONNECTED  TO  THE  TERMINAL,  IT  WILL  GUARANTEE  THAT  THE 
DISPATCHER  WILL  RE-ACQUIRE  THE  TERMINAL  EVEN  IF  THIS  TASK  IS 
ABORTED  WHILE  IT  OWNS  THE  TERMINAL. 

BY  NOT  TELLING  THE  DISPATCHER  IT  CAN  HAVE  THIS  TERMINAL  BACK  UNTIL 
AFTER  THIS  TASK  HAS  USED  THE  TERMINAL  AND  DISCONNECTED  FROM  IT, 
IT  WILL  REDUCE  EXECUTE  TIME  AND  NODE  POOL  USED  BY  FDMDSX  (A  SMALL 
SAVING,  UNLESS  MANY  TERMINALS  ARE  CONCURRENTLY  USED  BY  APPLICATION 
TASKS) . 


CALL  FXSTAR  (SBADDR) 


TELL  FDMDSX  IT  CAN  HAVE  THIS  TERMINAL. 


5-15 


FORTRAN 
FTRANS. 


0092 
0093 
0094 


0095 


009b 


0097 
009o 


0099 
0100 


0101 


0102 
0103 
0104 
0105 
0106 

0107 


IV-PLUS 
FTN 
C 
C 

c 
c 
c 

c 
c 
c 


c 
c 

c 

300 

c 
c 
c 

G 
C 


c 
c 

c 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


V02-51 
/RO/WR 


12!42s42 


27-MAY-80 


PAGE  5 


C 
C 
C 

400 


C 

c 


NOW  PROMPT+READ  FOR  EMPLOYEE  BADGE. 

CALL  FDPRRD  ( RESULT ,TREPLY (T5BHDR, WHO) ,14, WHO, 'W5' ,T5BPR0 , 32 , KEYCOD) 
IF  (RESULT. NE. 'OK' )   STOP  'DUE  TO  BAD  RESULT  OF  EMP  PROMPT' 
TSTATE(WHO)  »  ' BA '  1  SET  STATE  :«  WAIT  FOR  EMP.  BADGE. 


CONTINUE 


!  ENTRY  POINT  TO  SEE  IF  WE  CAN  START  USING  ANOTHER 
!  TERMINAL.   WE  GET  HERE  AFTER  JUST  STARTING  TO 
!  USE  A  TERMINAL,  OR  AFTER  JUST  CEASING  USAGE  OF 
!  A  TERMINAL. 


IF  (ACTIVS.EQ.MAXACT) 
GO  TO  400 

CALL  FXRCVD  ( RESULT , RCVBUF) 
IF  (RESULT. EQ. 'OK' ) 
GO  TO  200 


!  IF  WE  ARE  USING  AS  MANY  AS  WE  CAN, 
!  DO  NOT  CHECK  FOR  MORE  TO  USE. 

!  TRY  TO  GET  ANOTHER  TRANSACTION  EVENT, 

!  IF  WE  GET  ANOTHER, 

!    GO  CHECK  IT  AND  FIRE  IT  UP. 


CALL  FDWAIT  (WHO)  !  WAIT  FOR  SOME  TERMINAL  RESPONSE, 

IF  (WHO.LT.O  .OR.  WHO .GT . MAXACT) 

STOP  'DUE  TO  INVALID  FDWAIT  RETURN' 


IF  (WHO.EQ.O) 
GO  TO  300 


IF  (TSTATE(WHO) .EQ. 'BA' ) 

IF  (TSTATE(WHO) .EQ. 'JO' ) 

IF  (TSTATE(WHO) .EQ. 'PA' ) 

IF  (TSTATE(WHO) .EQ. 'RE' ) 

IF  (TSTATE(WHO)  .EQ.  'AC  ) 


!  IF  NO  TERMINAL  RESPONSE  FOR  SEVERAL 
!  SECONDS,  USE  KEEP-ALIVE  RETURN  TO 
!  TRY  FOR  ANOTHER  TRANSACTION  EVENT. 


GO  TO  1000 
GO  TO  2000 
GO  TO  3000 
GO  TO  4000 
GO  TO  5000 


!  GO  IF  GOT  EMP.  BADGE. 
!  GO  IF  GOT  JOB  CARD. 
!  GO  IF  GOT  PART  NO.  CARD. 
!  GO  IF  GOT  RECEIVED  COUNT. 
!  GO  IF  GOT  ACCEPTED  COUNT. 


STOP  'DUE  TO  UNDEFINED  TERMINAL  STATE' 
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0109 
0110 


0111 
0112 
0113 

0114 


0115 

0116 
0117 


0118 
0119 
0120 

0121 


0122 

0123 
0124 

0125 

0126 

0127 
0128 

0129 


!  ENTRY  POINT  FOLLOWING  TERMINAL  OPERATOR'S  REPLY 
1  TO  PROMPTING  FOR  EMPLOYEE  BADGE. 


C 
C 


C 
C 

c 


CALL  FDSTAT  (STAVEC ,WHO,TREPLY (T5BHDR,WH0) ) 

1  IF  OPERATOR  CANCELLED  TRANSACTION, 
IF  (RESULT, NE. 'OK' )  1  OR  IF  TERMINAL  WENT  OFF-LINE, 

1     GO  TO  6000  1  GO  CANCEL  AND  CLEAN-UP. 

WE  HAVE  EMPLOYEE  BADGE  DATA.   NOW  PROMPT  FOR  JOB  CARD. 

CALL  FDPRRD  (RESULT ,TREPLY (T3JHDR, WHO) , 26 , WHO ,' BD' ,T3JPR0, 32) 
IF  (RESULT. NE. 'OK' )   STOP  'DUE  TO  BAD  RESULT  OF  JOB  PROMPT' 
TSTATE(WHO)  =  'JO'  i  SET  STATE  :=  WAIT  FOR  JOB  CARD. 


C 
C 
C 

2000 

C 

C 

C 


GO  TO  300 


CONTINUE 


1  PROMPT  STARTED;  NOW  WAIT  FOR  ACTION, 


1  ENTRY  POINT  FOLLOWING  TERMINAL  OPERATOR'S  REPLY 
!  TO  PROMPTING  FOR  JOB  I.D.  CARD. 


C 
C 
C 


CALL  FDSTAT  (STAVEC , WHO ,TREPLY (T3JHDR , WHO) ) 

!  IF  OPERATOR  CANCELLED  TRANSACTION, 
IF  (RESULT.NE  , 'OK' )  !  OR  IF  TERMINAL  WENT  OFF-LINE, 

1     GO  TO  6000  !  GO  CANCEL  AND  CLEAN-UP. 

WE  HAVE  JOB  I.D.  CARD  DATA.   NOW  PROMPT  FOR  PART  NUMBER  CARD. 

CALL  FDPRRD  ( RESULT ,TREPLY (T3PHDR, WHO) , 26 , WHO ,' BD ' ,T3PPR0, 32) 
IF  (RESULT.NE. 'OK' )   STOP  'DUE  TO  BAD  RESULT  OF  PART  PROMPT' 
TSTATE(WHO)  =  'PA'  !  SET  STATE  :=  WAIT  FOR  PART  NO. 


C 
C 

c 

3000 

C 

C 

C 


GO  TO  300 


CONTINUE 


!  PROMPT  STARTED;  NOW  WAIT  FOR  ACTION, 


!  ENTRY  POINT  FOLLOWING  TERMINAL  OPERATOR'S  REPLY 
!  TO  PROMPTING  FOR  PART  NUMBER  CARD. 


C 
C 

C 
360U 


CALL  FDSTAT  (STAVEC , WHO ,TREPLY (T3PHDR, WHO) , ,6) 

1  IF  OPERATOR  CANCELLED  TRANSACTION, 
IF  (RESULT.NE. 'OK' )  !  OR  IF  TERMINAL  WENT  OFF-LINE, 

1     GO  TO  6000  !  GO  CANCEL  AND  CLEAN-UP. 

WE  HAVE  PART  NUMBER  DATA.   NOW  PROMPT  FOR  COUNT  OF  PARTS  RECEIVED. 


C 
C 


IF  (.NOT.SIM(WHO) )  !  IF  THIS  IS  A  REAL  RT805, 

1     CALL  FDPRRD  (RESULT, TREPLY (KPRHDR, WHO) , 36, WHO , 'QK ' ,KPRPRO ,28) 

IF  (SIM(WHO))  !  IF  THIS  IS  A  SIMULATED  RT805, 

1     CALL  FDPRRD  (RESULT, TREPLY (KPRHDR, WHO) , 14 , WHO , 'T5 ' ,KPRPRO ,28) 

IF  (RESULT.NE. 'OK' )   STOP  'DUE  TO  BAD  RESULT  OF  REC  PROMPT' 

TSTATE(WHO)  =  ' RE '  1  SET  STATE  :=  WAIT  FOR  REC.  COUNT. 


GO  TO  300 


!  PROMPT  STARTED;  NOW  WAIT  FOR  ACTION, 
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0131 

0132 


0133 
0134 
0135 
0136 
0137 
0138 
0139 

0140 


0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 


0149 
0150 
0151 
0152 


0153 

0154 

0155 
0156 

0157 


I  ENTRY  POINT  FOLLOWING  TERMINAL  OPERATOR'S  REPLY 
I  TO  PROMPTING  FOR  COUNT  OF  PARTS  RECEIVED. 


C 
C 


CALL  FDSTAT  (STAVEC ,WHO ,TREPLY (KPRHDR,WHO) , ,6) 

I  IF  OPERATOR  CANCELLED  TRANSACTION, 
IF  (RESULT. NE. 'OK' )  I  OR  IF  TERMINAL  WENT  OFF-LINE, 

GO  TO  6000  I  GO  CANCEL  AND  CLEAN-UP. 

IF  (.NOT.SIM(WHO) )   GO  TO  4200   1  IF  THIS  IS  A  SIMULATED  RT805, 


4200 
C 

C 
C 
C 


BYTGOT  -  8 

TREPLY(KPRDAT+0,WHO)  -  '9' 

TREPLY(KPRDAT+1,WH0)  -  '9' 

TREPLY(KPRDAT+2,WH0)  «  '9' 

TREPLY(KPRDAT+3,WH0)  -  '9' 
CONTINUE 

IF  (BYTGOT. LT. 5)   GO  TO  3600 


SIMULATE  RESPONSE  OF  '9999' 


!  NO  DATA,  PROMPT  AGAIN. 


NOW  RIGHT-JUSTIFY  THE  RECEIVED  PARTS  COUNT. 


4300 


4400 
C 
C 
C 


IF  (BYTGOT. EQ. 8)   GO  TO  4400 

OFFSET  »  8-BYTGOT 

DO  4300  I  -  KPRDAT+3,KPRDAT+1,-1 

TREPLY(I,WHO)  "  TREPLY ( I-OFFSET ,WHO) 

TREPLY(KPRDAT,WHO)  »  '0' 

IF  (OFFSET. GE. 2)   TREPLY (KPRDAT+1 , WHO)  = 

IF  (OFFSET. EQ. 3)   TREPLY (KPRDAT+2 , WHO)  = 

CONTINUE 

NOW  VALIDATE  THE  RECEIVED  PARTS  COUNT. 

DO  4500  I  =  KPRDAT,KPRDAT+3 

IF  (TREPLY (I, WHO) .LT. '0' )   GO  TO  3600 

IF  (TREPLY (I, WHO) .GT. '9' )   GO  TO  3600 

CONTINUE 


!  GCT  4  DIGIT  REPLY,  DO  NOT  JUSTIFY. 


'0' 
'0' 


!  NON-NUMERIC  DATA;  TRY  AGAIN, 
!  NON-NUMERIC  DATA;  TRY  AGAIN. 


NOW  PROMPT  FOR  COUNT  OF  PARTS  ACCEPTED. 


4500 

C 

C    WE  HAVE  COUNT  OF  PARTS  RECEIVED. 

C 

4600     IF  (.NOT.SIM(WHO) )  !  IF  THIS  IS  A  REAL  RT805, 

1     CALL  FDPRRD  (RESULT, TREPLY (KPAHDR, WHO)  , 36 , WHO , 'QK ' ,KPAPRO  ,28) 
IF  (SIM(WHO))  1  IF  THIS  IS  A  SIMULATED  RT805, 

1     CALL  FDPRRD  (RESULT, TREPLY (KPAHDR, WHO) , 14 , WHO , 'T5 ' ,KPAPRO ,28) 
IF  (RESULT. NE. 'OK' )   STOP  'DUE  TO  BAD  RESULT  OF  ACC  PROMPT' 
TSTATE(WHO)  =  'AC  !  SET  STATE  :-  WAIT  FOR  ACC.  COUNT. 


GO  TO  300 


!  PROMPT  STARTED;  NOW  WAIT  FOR  ACTION. 


C 
C 

c 
c 
c 
c 
c 
c 
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/RO/WR 
CONTINUE 


!  ENTRY  POINT  FOLLOWING  TERMINAL  OPERATOR'S  REPLY 
!  TO  PROMPTING  FOR  COUNT  OF  PARTS  ACCEPTED. 


CALL  FDSTAT  (STAVEC ,WHO ,TREPLY (KPAHDR,WHO)  , , 6  ) 

!  IF  OPERATOR  CANCELLED  TRANSACTION, 
IF  (RESULT. NE. 'OK' )  !  OR  IF  TERMINAL  WENT  OFF-LINE, 

GO  TO  6000  !  GO  CANCEL  AND  CLEAN-UP. 

IF  ( .NOT.SIM(WHO) )   GO  TO  5200   !  IF  THIS  IS  A  SIMULATED  RT805, 


5200 
C 

C 
C 

c 


BYTGOT  ^  8 

TREPLY(KPADAT+0,WHO)  =  '9' 

TREPLY (KPADAT+1,WH0)  =  '8' 

TREPLY(KPADAT+2,WH0)  =  '7' 

TREPLY (KPADAT+3, WHO)  =  '6' 
CONTINUE 

IF  (BYTGOT. LT. 5)   GO  TO  4600 


!    SIMULATE  RESPONSE  OF  '9876' 


!  NO  DATA,  PROMPT  AGAIN, 


NOW  RIGHT-JUSTIFY  THE  ACCEPTED  PARTS  COUNT. 

IF  (BYTGOT. EQ. 8)   GO  TO  5400     !  GOT  4  DIGIT  REPI.Y,  DO  NOT  JUSTIFY. 
OFFSET  =  8-BYTGOT 

DO  5300  I  =  KPADAT+3, KPADAT+1,-1 
5300     TREPLY (I, WHO)  =  TREPLY ( I -OFFSET, WHO) 
TREPLY (KPADAT, WHO)  =  '0' 
IF  (OFFSET. GE. 2)   TREPLY (KPADAT+ 1 , WHO)  =  '0' 


5400 

C 

c 


5500 
C 


IF  (OFFSET. EQ. 3)   TREPLY (KPADAT+2 , WHO) 
CONTINUE 

NOW  VALIDATE  THE  ACCEPTED  PARTS  COUNT. 

DO  5500  I  =  KPADAT, KPADAT+3 

IF  (TREPLYd  ,WHO)  .LT. '0' )   GO  TO  4600 

IF  (TREPLY (I, WHO) .GT. '9' )   GO  TO  4600 

CONTINUE 


0' 


!  NON-NUMERIC  DATA;  TRY  AGAIN, 
!  NON-NUMERIC  DATA;  TRY  AGAIN, 


5510 
C 


CNTREC  =  0 

CNTACC  =  0 

DO  5510  I  =  0,3 

WORD  =  TREPLY (KPRDAT+I , WHO) 

CNTREC  =  CNTREC*10  +  WORD 

WORD  =  TREPLY (KPADAT+I, WHO) 

CNTACC  =  CNTACC*10  +  WORD 

IF  (CNTACC. GT. CNTREC) 
GO  TO  3600 


'0 


!  IF  HE  ACCEPTED  MORE  THAN  HE  RECEIVED, 
!  1 ROMPT  FOR  BOTH  AGAIN. 


C 

C 

c 

c 
c 


WE  NOW  HAVE  ALL  THE  DATA  FOR  THIS  TRANSACTION. 
RECORD  THE  TRANSACTION  IN  THE  TRANSACTION  FILE, 


IT  IS  TIME  TO 


CALL  FDWRIT  ( RESULT , WHO ,' DM ', PLEASE , 1 2) 

IF  (RESULT. NE.  'OK' )   STOP  'DUE  TO  BAD  RESULT  0!?  SAYING  PLEASE' 

CALL  FDSTAT  (STAVEC , WHO , TREPLY (KPAHDR , WHO) , 'WT' ) 

IF  (RESULT. NE. 'OK* )   STOP  'DUE  TO  BAD  RESULT  OF  SAYING  PLEASE' 


5-19 


FORTRAN  IV-PLUS  V02-51  12:42:42     27-MAy-80  PAGE  9 

FTRANS.FTN       /RO/WR 

C    NOW  MOVE  ALL  DATA  ACQUIRED  INTO  THE  DISK  BUFFER,  TO  PREPARE  TO 

C    RECORD  THIS  TRANSACTION. 

C 

0193  DO  5600  I  w    T3JDAT,T3JEND        1  MOVE  JOB  I.D.  CARD 

0194  5600     BUFFER (J0BB+I-T3JDAT)  -  TREPLY ( I ,WHO) 


0195 
0196 

0197 
0198 

0199 
0200 

0201 
0202 

0203 
0204 

0205 
0206 
0207 
0208 
0209 
0210 
0211 


5600 
C 

5610 
C 

5620 
C 

5630 
C 

5640 
C 


DO  5610  1  -  T3PDAT,T3PEND        1  MOVE  PART  NUMBER  CARD 
BUFFER(PARB+I-T3PDAT)  »  TREPLY ( I ,WHO) 

DO  5620  I  «  T5BDAT,T5BEND        I  USE  LAST  6  DIGITS  OF  EMP. 
BUFFER (BDGB+I-T5BDAT)  ■  TREPLY ( I ,WHO) 

DO  5630  I  -  KPRDAT,KPRDAT+3 
BUFFER(RECB+I-KPRDAT)  -  TREPLY ( I , WHO) 

DO  5640  I  »  KPADAT,KPADAT+3 
BUFFER(ACCB+I-KPADAT)  -  TREPLY ( I ,WHO) 


BADGE 


CALL  DATE  (BUFFER{DATB) ) 
CALL  TIME  (BUFFEIUTIMB)  ) 

WORD  ■-  DEVNUM(WHO) 
DIG3  =  IAND(W0RD,7) 
DIG2  '    IAND;WORD,"70) /8 
DIGl  »  IAND(WORD,"300) /64 
BUFFER\DEVB+0)  =  DIGl  +  '0' 
BUFFER(DEVB+1)  =  DIG2  +  '0' 
BUFFER(DEVB+2)  =  DIG3  +  '0' 


!  GET  CURRENT  SYSTEM  DATE 
!  GET  CURRENT  SYSTEM  TIME 

1  GET  DEVICE  NUMBER 


0212 

0213 

0214 

0215 
0216 
0217 
0218 
0219 
0220 
0221 


0222 
0223 

0224 

0225 

0226 
0227 
0228 


IF  (SEQNO.GE.8000  .AND.  (SEQNO/100) *1 00 . EQ. SEQNOi 
1     WRITE  (LUNERR,5699)  SEQNO 
5699     FORMAT  ('  ***  WARNING  -  TRANSACTION  FILE  EXCEEDS 
1  ,114, '  RECORDS  ***' ) 

IF  (SEQNO. GE. 9999)   STOP  'DUE  TO  FILE  OVERFLOW' 
C 

SEQNO  =  SEQNO  +  1 

WORD  =  SEQNO 

DO  5650  I  =  3,0,-1 

WORDl  =  WORD/10 

W0RD2  =  WORD  -  1C*W0RD1 

BUFFER(SEQB+I)  =  W0RD2  +  '0' 

WORD  =  WORDl 

NOW  WRITE  THE  RECORD  INTO  THE  TRANSACTION  FILE 


5650 
C 
C 
C 

5900 
C 


WRITE  (LUNFIL,5900)  BUFFER 
FORMAT  ( '  ' ,100A1) 

I^  (.NOT.SIM(WHO))  I  IF  THIS  A  REAL  RT805, 

.ALL  FDWRIT  (RESULT , WHO ,' DM ', THANKS , 10 ,,' B ' )   !  B  =>  ENTRY  ACCEPTED 

IF  (SIM(WHO))  !  IF  THIS  IS  A  SIMULATED  RTe05, 

CALL  FDWRIT  (RESULT , WHO , 'DM ', THANKS , 10) 

IF  (RESULT. NE. 'OK' )   STOP  'DUE  TO  BAD  RESULT  OF  SAYING  THANKS' 

CALL  FDSTAT  (STAVEC , WHO , TREPLY (KPAHDR, WHO) , 'WT' ) 

IF  (RESULT. NE. 'OK' )   STOP  'DUE  TO  BAD  RESULT  OF  SAYING  THANKS' 
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FTRANS.FTN 
C 


/RO/WR 


0229 


0230 
0231 
0232 
0233 

0234 
023:"^ 


0236 

0237 
023b 
0239 
0240 

0241 


0242 


C 
C 
C 

c 
c 
c 

6000 
C 

c 
c 


CONTINUE  !  ENTRY  POINT  USED  WHEN  A  TRANSACTION  HAS  BEEN 
!  COMPLETED,  OR  WHEN  IT  HAS  BEEN  CANCELLED,  OR 
!  WHEN  THE  TERMINAL  HAS  GOME  OFF-LINE. 

TSTATE(WHO)  =  'UN'  !  SET  STATE  :=  UNUSED 

LEAVE  =  -WHO 

CALL  FDDISC  { RESULT , LEAVE)       !  DISCONNECT,  LEAVING  THANK  YOU  MSG. 

IF  (RESULT. NE. 'OK' )   STOP  'DUE  TO  BAD  RESULT  OF  FDDISC 


ACTIVS  =  ACTIVS 
IF  (ACTIVS. GE.l) 
GO  TO  300 


!  DECREMENT  COUNT  OF  ACTIVE  TERMINALS, 
!  IF  WE  STILL  HAVE  ACTIVE  TERMINALS, 
!  CONTINUE  USING  THEM. 


C 
C 
C 
C 
C 


6999 

C 

C 
C 
C 


WE  HAVE  NO  ACTIVE  TERMINALS  NOW.   CLOSE  THE  TRANSACTION  FILE,  AND 
GO  MAKE  ONE  LAST  ATTEMPT  TO  RECEIVE  A  TRANSACTION  EVENT  PACKET  FROM 
THE  DISPATCHER. 

CLOSE  (UNIT=LUNFIL) 

OPEN  (UNIT=LUNFIL,  NAME= ' FTRANS . SEQ; 1 ' ,  TYPE='NEW') 
WRITE  (LUNFIL,6999)  SEQNO 
FORMAT  ('  ',114) 
CLOSE  (UNIT=LUNFIL) 


IF  (ACTIVS. LT.l)   GO  TO  100 


END 


UNCONDITIONAL  GOTO 
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00001 

00002 

00003 

00004 

00005 

00006 

00007 

OOOOU 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

0.  )41 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 


-^ENTIFICATiON  DIVISION. 
P.  "RAM-ID.   CTRANS. 

REMARKS.   THIS  IS  A  S.iMPLE  TRANSACTION  ACQUISITION  PROGRAM. 
*•»*   THIS  TASK  IS  DESIGNED  TO  BE  INVOKED  THROUGH  THE 
***   THE  FDM  DISPATCHER  PACKAGE. 
***   IT  HANDLES  MANY  TERMINALS  CONCURRENTLY. 

ENVIRONMENT  DIVISION. 
CONFIGURATION  SECTION. 
SOURCE-COMPUTER.   PDP-11-70. 
OBJECT-COMPUTER.   ANY-DPM-SYSTEM. 

SPECIAL-NAMES. 

CONSOLE  IS  TRACER. 

INPUT-OUTPUT  SECTION. 
FILE-CONTROL. 

SELECT  SEQUENCE-FILE 

ASSIGN  TO  "SYtCTRANS.SEQ.-l". 
SELECT  DATA-FILE 

ASSIGN  TO  "SY: CTRANS. DAT". 

DATA  DIVISION. 
FILE  SECTION. 

FD   SEQUENCE-FILE 

LABEL  RECORD  IS  STANDARD. 
01  SEQUENCE-NUMBER  PIC  9999. 

FD   DATA-FILE 

LABEL  RECORD  IS  STANDARD. 
01  TRANSACTION-RECORD. 

03  JOB-BUFFER  PIC  X(22). 

03  JOB-FILLER  PIC  XX. 

03  PART-BUFFER  PIC  X{22). 

03  PART-FILLER  PIC  XX. 

03  GROSS-BUFFER  PIC  X(4). 

03  GROSS-FILLER  PIC  XX. 

03  NET-BUFFER  PIC  X(4). 

03  NET-FILLER  PIC  XX. 

03  SEQUENCE-BUFFER  FIC  9999. 

03  SEQUENCE-FILLER  PIC  XX. 

03  BADGE-BUFFER  PIC  X(6). 

03  BADGE-FILLER  PIC  XX. 

03  DEVICE-NAME  PIC  XX. 

03  DEVICE-NUMBER-BUFFER  PIC  XXXX. 

03  DEVICE-FILLER  PIC  XX. 

03  DATE-BUFFER  PIC  X(6). 

03  DATE-FILLER  PIC  XX. 

03  TIME-BUFFER  PIC  X(8). 
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00052 

00053 

00054 

L 

00055 

L 

00056 

L 

00057 

00058 

00059 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

000  ;8 

00079 

00080 

00081 

00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 
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/ 
WORKING-STORAGE  SECTION. 

COPY  "CTRANS.MAX". 

77  MAXIMUM-ACTIVE-TERMINALS  PIC  99  COMP  VALUE  5. 

•*•   NOW  DEFINE  SOME  LOCAL  CONSTANTS. 

77  RT805  PIC  99  COMP  VALUE  i. 

77  SIMULATOR  PIC  99  COMP  VALUE  2. 

77  NO-SUCH-FILE  PIC  XX  VALUE  "97". 

77  GOOD  PIC  XX  VALUE  "55". 

7  7  BAD   PIC  XX  VALUE  "66". 

77  OLD  PIC  XX  VALUE  "33". 

77  NEW  PIC  XX  VALUE  "44". 

77  UNUSED  PIC  99  COMP  VALUE  3. 

7  7  CONNECTED  PIC  99  COMP  VALUE  4. 

77  WAIT-FOR-BADGE  PIC  99  COMP  VALUE  5. 

77  WAIT-FOR-JOB-CARD  PIC  99  COMP  VALUE  6. 

77  WAIT-FOR-PART-CARD  PIC  99  COMP  VALUE  7. 

77  WAIT-FOR-GROSS-COUNT  PIC  99  COMP  VALUE  8. 

77  WAIT-FOR-NET-COUNT  PIC  99  COMP  VALUE  9. 

7  7  GOT-ALL-DATA  PIC  9  9  COMP  VALUE  10. 

77  EMPLOYEE-BADGE-SIZE  PIC  99  COMP  VALUE  14. 

77  CARD-SIZE  PIC  99  COMP  VALUE  26. 

77  KEYPAD-SIZE  PIC  99  COMP  VALUE  36. 

77  SIMULATOR-READ-SIZE  PIC  99  COMP  VALUE  14. 

77  STATUS-VECTOR-SIZE  PIC  99  COMP  VALUE  5. 

7  7  BADGE-READ-COMMAND  PIC  XX  VALCE  "W5". 

77  CARD-READ-COMMAND  PIC  XX  VALUE  "BD". 

77  KEYPAD-R'^AD-COMMAND  PIC  XX  VALUE  "QK". 

77  SIMULATOk-READ-COMMAND  PIC  XX  VALUE  "T5". 

77  SAY-COMMAND  PIC  XX  VALUE  "DM". 

77  STATUS-COMMAND  PIC  XX  VALUE  "RT". 

77  WAIT-COMMAND  PIC  XX  VALUE  "WT". 
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00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00108 
00109 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00118 
00119 
00120 


/ 

*** 


NOW  DEFINE  SOME  LOCAL  VARIABLES. 


77  NUMBER-CURRENTLY-ACTIVE  PIC  99  COMP  VALUE  0. 

77  RESULT  PIC  XX  VALUE  "   " . 

77  WHO  PIC  99  COMP  VALUE  1. 

77  LOGICAL-UNIT-NUMBER  PIC  99  COMP  VALUE  1. 

77  TEMP-ONE  PIC  9999. 

77  TEMP-TWO  PIC  9999. 

77  TEMP-THREE  PIC  9999. 

77  TEMP-FOUR  PIC  9999. 

77  JUSTIFY-RESULT  PIC  XX. 

77  SEQUENCE-FILE-TYPE  PIC  XX. 

***   NOW  DEFINE  THE  PROMPTING  MESSAGES  TO  BE  USED. 

77  BADGE-PROMPT  PIC  X(32)  VALUE 

"PLEASE  INSERT  YOUR  PUNCHED  BADGE". 
77  JOBID-PROMPT  PIC  X(32)  VALUE 

"PLEASE  INSERT  THE  JOB-NAME  CARD  ". 
77  PARTNUM-PROMPT  PIC  X(32)  VALUE 

"PLEASE  INSERT  THE  PART  NO   CARD  ". 
77  FULL-SIZE  PIC  99  COMP  VALUE  32. 
77  RECEIVED-PROMPT  PIC  X(28)  VALUE 

"HOW  MANY  PARTS  DID  YOU  GET?  ". 
7  7  ACCEPTED-PROMPT  PIC  X(28)  VALUE 

"  -  HOW  MANY  DT*:  YOU  ACCEPT?  ". 
77  PART-SIZE  PIC  99  COMP  VALUE  28. 
77  SAY-PLEASE  PIC  X(12)  VALUE  "PLEASE  WAIT  ". 
77  SAY -THANKS  PIC  X(12)  VALUE  "  -  THANK  YOU". 
77  SMALL-SIZE  PIC  99  COMP  VALUE  12. 
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00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
0U143 
00144 
00145 
00140 
00147 
00146 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00158 
0015'^ 
0016v, 


/ 

***   NOW  DEFINE  THE  TABLES  FOR  TERMINAL  RESPONSES. 

01  TERMINAL-RESPONSE-TABLES. 
COPY  "CTRANS.OCC". 

03  ONLY-GROUP  OCCURS  5  TIMES. 
05  TERMINAL-CONTROL-TABLE. 

07  TERMINAL-STATE  PIC  99  USAGE  IS  COMP. 
07  TERMINAL-TYPE  PIC  99  USAGE  IS  COMP. 
07  DEVICE-NUMBER  PIC  99  USAGE  IS  COMP. 

05  DADGE-DATA-TABLE. 

07  EMPLOYEE-BADGE-HEADER  PIC  X(4). 
07  EMPLOYEE-BADGE-IGNORED  PIC  X{4). 
07  EMPLOYEE-BADGE  PIC  X(6). 

0  5  JOB-DATA-TABLE. 

07  JOB-CARD-HEADER  PIC  X(4). 
07  JOB-CARD  PIC  X{22) . 

05  PART-NUMBER-DATA-TABLE. 

07  PART-NUMBER-HEADER  PIC  X{4). 
07  PART-NUMBER  PIC  X(22). 

0  5  GROSS-COUNT-TABLE. 

07  RECEIVED-COUNT-HEADER  PIC  X(4). 

07  RECEIVED-COUNT  PIC  X(4). 

07  RECEIVED-COUNT-IGNORED  PIC  X(28). 

0  5  NET-COUNT-TABLE. 

07  ACCEPTED-COUNT-HEADER  PIC  X(4). 

07  ACCEPTED-COUNT  PIC  X(4). 

07  ACCEPTED-COUNT-IGNORED  PIC  X(28). 
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00161 

00162 

00163 

00164 

00165 

00166 

00167 

00168 

00169 

00170 

00171 

00172 

00173 

00174 

00175 

00176 

00177 

0017b 

00179 

00180 

00181 

00182 

00183 

00184 

00185 

00186 

00187 

00188 

00189 

00190 

00191 

00192 

00193 

00194 

00195 

00196 

00197 

00198 

00199 

00200 

00201 

00202 

00203 

00204 

00205 

00206 

00207 

00208 

00209 

00210 

00211 

00212 

00213 

00214 


***   NOW  DEFINE  THE  STATUS  VECTOR  RETURNED  BY  "FDSTAT". 

01  STATUS-VECTOR. 

03  SUMMARY-STATUS  PIC  XX  VALUE  " ". 

03  IGNORED  PIC  X(6) . 

03  REPLY-LENGTH  PIC  99  COMP  VALUE  0. 

***   NOW  iEFINE  THE  FORMAT  OF  THE  DATA  PACKET  RETURNED  BY 
***   CALLING  "FXRCVD"  OR  "FXRCVX". 

01  RECEIVE-BUFFER. 

03  TASK-NAME  PIC  XXXX. 

03  NEW-DEVICE-NUMBER  PIC  99  USAGE  IS  COMP. 

03  KEY-CODE  PIC  X. 

03  RECEIVE-BUFFER-IGNORED  PIC  X(23). 

***   NOW  DEFINE  the  HEADER  LINES  FOR  THE  TRANSACTION-DATA  FILE, 


01 


01 


01 


01 


HEADER- 
03  Hll 
03  H12 
03  H13 
03  H14 
HEADER- 
03  H21 
03  H22 
03  H23 
03  H24 
HEADER- 
03  H31 
03  H32 
03  H33 
03  H34 
HEADER- 
03  H41 
03  H42 
03  H43 
03  H44 


ONE 
PIC 
PIC 
PIC 
PIC 
TWO 
PIC 
PIC 
PIC 
PIC 


X(24)  VALUE  "JOB  IDENTIFICATION....   ' 

X(24)  VALUE  "PART  NUMBER ' 

X(26)  VALUE  "NO.    NO.    SEQ.   EMPLOY 

X{24)  VALUE  "RT805   TRANSACTION ' 

X(24)  VALUE  "CARD  DATA  ENTERED ' 

X(24)  VALUE  "CARD  DATA  ENTERED ' 

X(26)  VALUE  "RCVD   GOOD   NO.    BADGE 

X(24)  VALUE  "USED    DATE  AND  TIME ' 

THREE. 

PIC  X(24)  VALUE  " ' 

PIC  X(24)  VALUE  " 

PIC  X(26)  VALUE  " 

PIC  X(24)  VALUE  " 

FOUR. 

PIC  X(24)  VALUE  " 

PIC  X(24)  VALUE  " 

PIC  X(26)  VALUE  " 

PIC  X(24)  VALUE  " 


***   NOW  DEFINE  NUMBER-STRINGS  FOR  TEMPORARY  STORAGE, 


01   NUMBER-STRING. 

03  DIGIT-1  PIC  X. 
03  DIGIT-2  PIC  X. 
03  DIGIT-3  PIC  X. 
03  DIGIT-4  PIC  X, 

01   DEVICE-STRING. 
03  DIG-1  PIC  9. 
03  DIG-2  PIC  9. 
03  DIG-3  PIC  9. 
03  TRAILER  PIC  X  VALUE 
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^ 


00215 

00216 

00217 

00218 

00219 

00220 

00221 

00222 

00223 

00224 

00225 

00226 

00227 

0022b 

00229 

00230 

00231 

00232 

00233 

00234 

0  0  2  3  5 

00236 

00237 

00238 

00239 

00240 

00241 

00242 

00243 

00244 

00245 

0Q246 

00247 

00248 

00249 

00250 

00251 

00252 

00253 


/ 


PROCEDURE  DIVISION. 
DECLARATIVES. 

SEQUENCE-FILE-RECOVERY  SECTION. 

USE  AFTER  STANDARD  ERROR  PROCEDURE  ON  I-O. 
START-NEW-SEQUENCE-FILE. 

OPEN  OUTPUT  SEQUENCt-FILE. 

MOVE  ZERO  TO  SEQUENCE-NUMBER. 

MOVE  NEW  TO  SEQUENCE-FILE-TYPE. 

END-START-NEW-SEQUENCE-FILE. 
EXIT. 

DATA-FILE-RECOVERY  SECTION. 

USE  AFTER  STANDARD  ERROR  PROCEDURE  ON  EXTEND. 
BEG IN-NEW-DATA-FILE. 

OPEN  OUTPUT  DATA-FILE. 

WRITE  TRANSACTION-RECORD  FROM  HEADER-ONE. 

WRITE  TRANSACTION-RECORD  FROM  HEADER-TWO. 

WRITE  TRANSACTION-RECORD  FROM  HEADER-THREE. 

WRITE  TRANSACTION-RECORD  FROM  HEADER-FOUR. 

MOVE  "SB"  TO  DEVICE-NAME. 

END-BEGIN-NEW-DATA-FILE . 
EXIT. 

OPEN-NEW-FILE-RECOVERY  SECTION. 

USE  AFTER  STANDARD  ERROR  PROCEDURE  ON  OUTPUT. 
BEGIN-FATAL-FILE-OPEN . 

DISPLAY  "FAILURE  TO  OPEN  FILE  FOR  OUTPUT  -  FATAL" 
UPON  TRACER. 

GO  TO  END-JOB. 
END-FATAL-FILE-OPEN . 

EXIT. 

END  DECLARATIVES. 
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00254 
00255 
00256 
00257 
00258 
00259 
0026U 
00261 
00262 
00263 
0U2o4 
00265 
002^6 
00^67 
00268 
00269 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00278 
00279 


/ 


BEGIN. 


MOVE  0  TU  NUMBER-CURRENTLY-r.CTIVE. 

CALL  "FDINIT"  USING  RESULT,  MAXIMUM-ACTIVE-TERMINALS. 
IF  RESULT  NOT  =  "OK"   GO  VO  INIT-ERROR-EXIT . 
PERFORM  TERMINAL-CONTROl-INIT  VARYING  WHO  FROM  1  BY  1 
UNTIL  WHO  >  MAXIMUM-ACTIVE-TERMINALS. 

GET-INITIAL-DATA-PACKET. 


*  *  * 

*  *  * 


*  *  * 

*  *  * 

*  *  * 


THIS  SECTION  IS  USED  TO  ACQUIRE  A  DATA  PACKET  FROM  THE 
FDM  DISPATCHER  -OR-  TO  CEASE  EXECUTION.   NOTE  THAT, 
AT  THIS  POINT  IN  THE  TASK,  /  LL  FILES  ARE  CLOS»^  *  AND 
NO  I/O  IS  PENDING. 

CALL  "FXRCVX"  USING  RESULT,  RECEIVE-BUFFER . 

SINCE  TASK  EXIT  DID  NOT  OCCUR,  WE  OBVIOUSLY  GOT  A 
DATA  PACKET  FROM  SOME  TASK.   NOW  MAKE  SURE  THAT  IT 
CAME  FROM  THE  RIGHl  TASK  (FDMDIS).   IF  THE  PACKET 
CAME  FROM  THE  WRONG  TASK,  IGNORE  IT  AND  TRY  TO  ACQUIRE 
ANOTHER  PACKET. 

IF  RESULT  NOT  *    "OK"   GO  TO  GET-INITIAt -DATA-PACKET. 


5-28 


COBOL   4,0  0 

SRC: 

CTRANS.CBL;2           27-MAY-80   12:50:20  PAGE  008 
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1      00280 

/ 

002ttl 

00282 

*** 

NOW  THAT  WE  HAVE  A  TRANSACTION  EVENT  PACKET,  GET  THE 

00283 

*** 

CURRENT  TRANSACTION  SEQUENCE  NUMBER. 

00284 

00265 

OPEN-OLD-SEQUENCE-FILE. 

00286 

00287 

MOVE  OLD  TO  SEQUENCF-FILE-TYPE . 

00238 

OPEN  I-O  SEQUENCF-FILE. 

00289 

IF  SEQUENCE-FILE-TYPE  »  K'  '.W   CO  TO  START-NEW-DATA-FILE. 

9 

00290 

00291 

READ  SEQUENCE-FILE  RECORD   AT  END  GO  TO  EMPTY-FILE. 

00292 

IF  SEQUENCE-NUMBER  <  1  MOVE  ZERO  TO  SEQUENCE-NUMBER. 

00293 

IF  SEQUENCE-NUMBER  >  9998  MOVE  ZERO  TO  SEQUENCE-NUMBER. 

00294 

IF  SEQUENCE-NUMBER  =  ZERO   GO  TO  START-NEW-DATA-FILE. 

m 

00295 

00296 

OPEN-OLD-DATA-FILE . 

00297 

00298 

IF  SEQUENCE-FILE-TYPE  =  NEW   GO  TO  START-NEW-DATA-FILE. 

00299 

OPEN  EXTEND  DATA-FILE. 

00300 

MOVE  HEADER-FOUR  TO  TRANSACTION-RECORD. 

A 

00301 

MOVE  "SB"  TO  DEVICE-NAME. 

V 

00302 

GO  TO  GOT-NEW-TERMINAL. 

00303 

00304 

START-NEW-DATA-FILE. 

00305 

00306 

OPEN  OUTPUT  DATA-FILE. 

00307 

00308 

WRITE  TRANSACTION- RECORD  FROM  HEADER-ONE. 

00309 

WRITE  TRANSACTION-RECORD  FROM  HEADER-TWO. 

00310 

WRITE  TRANSACTION-RECORD  FROM  HEADER-THREE. 

00311 

WRITE  TRANSACTION-RECORD  FROM  HEADER-FOUR. 

00312 

^^^ 

00313 

MOVE  "SB"  TO  DEVICE-NAME. 

V 

00314 

00315 

GOT 

-NEW-TERMINAL. 

00316 

00317 

*** 

NOW  MAKE  SURE  THAT  THIS  TERMINAL  IS  A  RT805,  EITHER  REAL 

U0318 

**  * 

OR  SIMULATED. 

00319 

00320 

IF  KEY-CODE  <  "g"   GO  TO  BAD-TYPE-ERROR-EXIT. 

00321 

IF  KEY-CODE  >  "H"   GO  TO  BAD-TYPE-ERROR-EXIT. 

00322 

00323 

*** 

NOW  SEARCH  FOR  AN  UNUSED  TERMINAL  INDEX  (AND  ITS 

00324 

*** 

ASSOCIATED  DATA)  TO  USE  FOR  THIS  TERMINAL. 

^^^ 

00325 

^ 

00326 

MOVE  1  TO  WHO. 

00327 

CHECK-FOR-UNUSED. 

00328 

IF  TERMINAL-STATE (WHO)  =  UNUSED   GO  TO  FOUND-AVAILABLE. 

00329 

ADD  1  TO  WHO. 

00330 

IF  WHO  >  MAXIMUM-ACTIVE-TERMINALS   GO  TO  ALL-USED-ERROR-EXIT 

00331 

GO  TO  CHECK-FOR-UNUSED. 

00332 

4 

00333 

FOUND-AVAILABLE. 

00334 

00335 

MOVE  SIMULATOR  TO  TERMINAL-TYPE (WHO) . 

00336 

IF  KEY-CODE  >  "9"    MOVE  RT805  TO  TERMINAL-TYPE (WHO) . 

4 

00337 

ADD  24,  WHO  GIVING  LOGICAL-UNIT-NUMBEP . 
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00338 
00339 
00340 
00341 
00342 
00343 
00344 


MOVE  NEW-DEVICE-NUMBER  TO  DEVICE-NUMBER(WHO) . 

CALL  "FDCONN"  USING  RESULT,  WHO,  NEW-DEVICE-NUMBER, 

LOGICAL-UNIT-NUMBER. 
IF  RESULT  NOT  »  "OK"   GO  TO  CONNECT-FAIL-ERROR-EXIT. 
MOVE  CONNECTED  TO  TERMINAL-STATE (WHO) . 
ADD  1  TO  NUMBER-CURRENTLY-ACTIVE. 
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00345 
00346 
00347 
00348 
00349 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
0035b 
00359 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00367 
00368 
00369 
00370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00378 


/ 
*** 

•  •* 
*** 

**  * 

it-k* 
**  * 
*** 

*** 
*** 
*** 
*** 
*** 

*  *  * 
*** 
*** 
*** 
*** 


*** 
*  *  * 


WE  ARE  NOW  CONNECTED  TO  THIS  RT805.   NOW  TELL  THE  DISPATCHER 
THAT  IT  CAN  HAVE  CONTROL  OF  THIS  TERMINAL.   NOTE  THAT  THE 
DISPATCHER  EXEC.  (FDMDSX)  WILL  IMMEDIATELY  TRY  TO  TAKE 
CONTROL  OF  THIS  TERMINAL,  BUT  IT  WILL  NOT  /.CTUALLY  GET 
CONTROL  OF  THIS  TERMINAL  UNTIL  THIS  TASK  EITHER  FINISHES 
THE  TRANSACTION  AND  DISCONNECTS  FROM  THIS  TERMINAL,  OR  UNTIL 
THIS  TASK  EXITS  OR  IS  ABORTED.   TWO  STRATEGIES  ARE  POSSIBLE: 

BY  TELLING  THE  DISPATCHER  IT  CAN  HAVE  THIS  TERMINAL 
BACK  IMMEDIATELY  AFTER  GETTING  CONNECTED  TO  THE 
TERMINAL,  IT  WILL  GUARANTEE  THAT  THE  DISPATCHER 
WILL  RE-ACQUIRE  THE  TERMINAL  EVEN  IF  THIS  TASK  IS 
ABORTED  WHILE  IT  OWNS  THE  TERMINAL. 

BY  NOT  TELLING  THE  DISPATCHER  IT  CAN  HAVE  THIS  TERMINAL 
BACK  UNTIL  AFTER  THIS  TASK  HAS  USED  THE  TERMINAL  AND 
DISCONNECTED  FROM  IT,  IT  WILL  REDUCE  EXECUTE  TIME  AND 
NODE  POOL  USED  BY  FDMDSX  (A  SMALL  SAVING,  UNLESS  MANY 
TERMINALS  ARE  CONCURRENTLY  USED  BY  APPLICATION  TASKS) . 

CALL  "FXSTAR"  USING  NEW-DEVICE-NUMBER. 

NOW  REQUEST  THE  OPERATOR  TO  INSERT  HIS  EMPLOYEE  BADGE. 
NOTE  THAT  FDMUTR  RETURNS  TO  THIS  TASK  I"»«EDIATELY  AFTER 
CHECKING  AND  ISSUING  THE  REQUEST;  LONG   -FORE  THE  BADGE 
DATA  APPEARS  IN  MEMORY. 

CALL  "FDPRRD"  USING  RESULT,  EMPLOYEE-BADGE-HEADER (WHO) 

EMPLOYEE-BADGE-SIZE, 
WHO,  BADGE-READ-COMMAND, 
BADGE-PROMPT,  FULL-SIZE,  KEY-CODE. 

IF  RESULT  NOT  =  "OK"   GO  TO  PROMPT-FAIL-ERROR-EXIT. 

MOVE  WAIT-FOR-BADGE  TO  TERMINAL-STATE (WHO) . 
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00379 
00360 
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00382 
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00386 
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00421 
00422 
00423 


/ 


GET-OR-WAIT. 

***   THIS  SECTION  IS  USED  TO  GET  ANOTHER  TRANSACTION  EVENT 
***   IF  POSSIBLE,  OR  TO  WAIT  FOR  SOME  RESPONSE  FROM  ONE  OF  THE 
***   TERMINALS  ALREADY  IN  USE. 

IF  NUMBER-CURRENTLY-ACTIVE  =  MAXIMUM-ACTIVE-TERMINALS 
GO  TO  WAIT-FOR-TERMINAL-RESPONSE. 

***   SINCE  THE  NUMBER  OF  CURRENTLY  ACTIVE  TERMINALS  IS  LESS  THAN 
***   THE  MAXIMUM  NUMBER  OF  ACTIVE  TERMINALS  WHICH  THIS  VERSION 
OF  THIS  TASK  CAN  ACCOMODATE,  TRY  TO  ACQUIRE  ANOTHER 


*  ** 


***   TRANSACTION  EVENT  PACKET  FROM  THE  DISPATCHER. 

CALL  "FXRCVD"  USING  RESULT,  RECEIVE-BUFFER. 
IF  RESULT  =  "OK"   GO  TO  GOT-NEW-TERMINAL . 

WAIT-FOR-TERMINAL-RESPONSE . 

***  WE  GET  TO  THIS  SECTION  EITHER  IF  THE  DISPATCHER  DID  NOT 

***  HAVE  ANOTHER  TRANSACTION  EVENT  FOR  US,  OR  IF  ALL  OF  OUR 

***  TERMINAL  DATA  AREA  IS  ALREADY  IN  USE,   NOW  WAIT  FOR  SOME 

***  RESPONSE  FROM  AN  ACTIVE  TERMINAL. 

CALL  "FDWAIT"  USING  WHO. 
IF  WHO  <  0   GO  TO  BAD-WAIT-ERROR-EXIT. 
IF  WHO  >  MAXIMUM-ACTIVE-TERMINALS 
GO  TO  BAD-WAIT-ERRC.  -EXIT. 


IF  WHO 


0  GO  TO  GET-OR-WAIT. 


***   WE  GET  HERE  AFTER  RECEIVING  A  RESPONSE  FROM  ONE  OF  THE 
***   ACTIVE  TERMINALS.   NOW  HANDLE  THE  RESPONSE  MESSAGE. 

IF  TERMINAL-STATE (WHO)  =  WAIT-FOR-NET-COUNT 

PERFORM  GOT-NET-COUNT  THRU  END-GOT-NET-COUNT . 
IF  TERMINAL-STATE (WHO)  =  WAIT-FOR-GROSS-COUNT 

PERFORM  GOT-GROSS-COUNT  THRU  END-GOT-GROSS-COUNT . 
IF  TERMINAL-STATE (WHO)  =  WAIT~FOR-PART-CARD 

PERFORM  GOT-PART-CARD  THRU  EHD-GOT-PART-CARD . 
IF  TERMINAL-STATE (WHO)  =  WAIT-FOR-JOB-CARD 

PERFORM  GOT-JOB-CARD  THR'u  END-GOT-JOB-CARD . 
IF  TERMINAL-STATE (WHO)  =  WAIT-FOR-BADGE 

PERFORM  GOT-BADGE  THRU  END-GOT-BADGE . 
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/ 


*  *  * 


IF  SUMMARY-STATUS  NOT  =  "OK" 

DISPLAY  "FDSTAT  BAD  RESULT  =  ",  SUMMARY-STATUS 

UPON  TRACER. 
IF  SUMMARY-STATUS  NOT  =  "OK"   GO  TO  CLEAN-UP. 
IF  TERMINAL-STATE (WHO)  NOT  =  GOT-ALL-DATA 

GO  TO  RESPONSE-HANDLED. 

NOW  THAT  WE  HAVE  ALL  DATA  FOR  THIS  TRANSACTION, 
WRITE  THE  RECORD  INTO  THE  TRANSACTION  FILE. 

CALL  "FDWRIT"  USING  RESULT,  WHO,  SAY-COMMAND, 

SAY-PLEASE,  SMALL-SIZE. 

IF  RESULT  NOT  =  "OK"   GO  TO  WRITE-FAIL-ERROR-EXIT. 

CALL  "FDSTAT"  USING  STATUS-VECTOR,  WHO, 

ACCEPTED-COUNT-HEADER (WHO) , 
WAIT-COMMAND,  STATUS-VECTOR-SIZE. 

IF  SUMMARY-STATUS  NOT  =  "OK"   GO  TO  CLEAN-UP. 

MOVE  SEQUENCE-NUMBER  TO  NUMBER-STRING. 
IF  SEQUENCE-NUMBER  >  7999 
IF  DIGIT-3  =  ZERO 

IF  DIGIT-4  ■=  ZERO 

DISPLAY  "***  WARNING  -  TRANSACTION  FILE  EXCEEDS  ", 
■ EQUENCE-NUMBER,  "RECORDS  ***". 

IF  SEQUENCE-NUMBER  >  9998  DISPLAY 

"CTRANS  STOP  DUE  TO  TRANSACTION  FILE  OVERFLOW". 
IF  SEQUENCE-NUMBER  >  9998   GO  TO  END-JOB. 

ADD  1  TO  SEQUENCE-NUMBER. 

MOVE  JOB-CARD (WHO)  TO  JOB-BUFFER. 
MOVE  PART-NUMBER (WHO)  TO  PART-BUFFER. 
MOVE  RECEIVED-COUNT (WHO)  TO  GROSS-BUFFER. 
MOVE  ACCEPTED-COUNT (WHO)  TO  NET-BUFFER. 
MOVE  SEQUENCE-NUMBER  TO  SEQUENCE-BUFFER. 
MOVE  EMPLOYEE-BADGE (WHO)  TO  BADGE-BUFFER. 
PERFORM  CONVERT-DEVICE-NUMBER. 
ACCEPT  DATE-BUFFER  FROM  DATE. 
ACCEPT  TIME-BUFFER  FROM  TIME. 

WRITE  TRANSACTION-RECORD. 

CALL  "FDWRIT"  USING  RESULT,  WHO,  SAY-COMMAND, 

SAY-THANKS,  SMALL-SIZE. 

IF  RESULT  NOT  =  "OK"   GO  TO  WRITE-FAIL-ERROR-EXIT. 

CALL  "FDSTAT"  USING  STATUS-VECTOR,  WHO, 

ACCEPTED-COUNT-HEADER (WHO) , 
WAIT-COMMAND,  STATUS-VECTOR-SIZE. 

IF  SUMMARY-STATUS  NOT  =  "OK"   GO  TO  CLEAN-UP. 


CLEAN-UP. 


CALL  "FDDISC"  USING  RESULT,  WHO. 

IF  RESULT  NOT  =  "OK"   GO  TO  DISCONNECT-FAIL-ERROR-EXIT, 

MOVE  UNUSED  TO  TERMINAL-STATE (WHO) . 

SUBTRACT  1  FROM  NUMBER-CURRENTLY-ACTIVE. 
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RESPONSE-HANDLED . 

***   NOW  THAT  WE  HAVE  HANDLED  THIS  TERMINAL  RESPONSE,  GO  BACK 
***   TO  WAIT  FOR  ANOTHER  TERMINAL  RESPONSE  IF  WE  HAVE  ANY  MORE 
ACTIVE  TERMINALS. 

IF  NUMBER-CURRENTLY-ACTIVE  >  0  GO  TO  GET-OR-WAIT. 

1^0  TERMINALS  ARE  ACTIVE.   CLOSE  THE  TRANSACTION  FILE,  THEN 
UPDATE  THE  SEQUENCE  NUMBER  FILE,  AND  THEN  GO  MAKE  ONE  LAST 


*** 


***   ATTEMPT  TO  RECEIVE  A  TRANSACTION  EVENT  PACKET  FROM  THE 
***   DISPATCHER. 

IF  SEQUENCE-FILE-TYPE  =  OLD   REWRITE  SEQUENCE-NUMBER. 
IF  SEQUENCE-FILE-TYPE  =  NEW     WRITE  SEQUENCE-NUMBER. 

CLOSE  SEQUENCE-FILE,  DATA-FILE. 

GO  TO  GET-INITIAL-DATA-PACKET. 
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TERMINAL-CONTROL-IN IT. 

MOVE  UNUSED  TO  TERMINAL-STATE (WHO) . 
END-OF-TERMINAL-CONTROL-INIT. 
EXIT, 


GOT-BADGE. 

CALL  "FDSTAT"  USING  STATUS-VECTOR,  WHO, 

EMPLOYEE-BADGE-HEADER (WHO) , 
STATUS-COMMAND,  STATl S-VECTOR-SIZE , 

IF  SUMMARY-STATUS  HOT  =  "OK"   GO  TO  END-GOT-BADGE . 

CALL  "FDPRRD"  USING  RESULT,  JOB-CARD-HEADER(WHO) , 

CARD-SIZE,  WHO, 

CARD-READ-COMMAND , 

JOBID-PROMPT,  FULL-SIZE,  KEY-CODE. 
IF  RESULT  NOT  '    "OK"   GO  TO  PROMPT-FAIL-ERROR-EXIT. 

MOVE  WAIT-FOR-JOB-CARD  TO  TERMINAL-STATE (WHO) . 
END-GOT-BADGE. 
EXIT. 


GOT-JOB-CARD. 

CALL  "FDSTAT"  USING  STATUS-VECTOR,  WHO, 

JOB-CARD-HEADER (WHO) , 
STATUS-COMMAND,  STATUS-VECTOR-SI ZE . 

IF  SUMMARY-STATUS  NOT  »  "OK"   GO  10   END-GOT-JOB-CARD. 

CALL  "FDPRRD"  USING  RESULT,  PART-NUMBER-HEADER (WHO) , 

CARD-SIZE,  WHO, 

CARD-READ-COMMAND , 

PARTNUM-PROMPT,  FULL-SIZE,  KEY-CODE, 
IF  RESULT  NOT  =  "OK"   GO  TO  PROMPT-FAIL-ERROR-EXIT. 

MOVE  WAIT-FOR-PART-CARD  TO  TERMINAL-STATE (WHO . 
END-GOT-JOB-CARD. 

EXIT. 
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/ 
GOT- PART-CARD. 

CALL  "FDSTAT"  USING  STATUS- VECTOR,  WHO, 

PART-NUMBER-HEADER (WHO) , 
STATUS-COMMAND,  STATUS-VECTOR-SIZE. 

IF  SUMMARY-STATUS  NOT  «  "OK"   GO  TO  END-GOT-PART-CARD. 

IF  TERMINAL-TYPE (WHO)  -  RT805 

CALL  "FDPRRD"  USING  RESULT,  RECEIVED-COUNT-HEADER (WHO) , 

KEYPAD-SIZE,  WHO, 
KEYPAD-READ-COMMAND , 
RECCIVED-PROMPT,  PART-SIZE,  KEY-CODE. 

IF  TERMINAL-TYPE (WHO)  "   SIMULATOR 

CALL  "FDPRRD"  USING  RESULT,  RECEIVED-COUNT-HEADER(WHO) , 
SIMULATOR-READ-SIZE,  WHO, 
S I MULATOR-READ-COMMAND , 
RECEIVED-PROMPT,  PART-SIZE,  KEY-CODE. 

IF  RESULT  NOT  -  "OK"   GO  TO  PROMPT-FAIL-ERROR-EXIT. 

MOVE  WAIT-FOR-GROSS-COUNT  TO  TERMINAL-STATE (WHO) . 
END-GOT-PART-CARD. 
EXIT. 


o 
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/ 


e 


GOT-GROSS-COUNT. 

CALL  "FDSTAT"  USING  STATUS-VECTOR,  WHO, 

RECEIVED-COUNT-HEADER (WHO) , 
STATUS-COMMAND,  STATUS-VECTOR-SIZE. 

IF  SUMMARY -STATUS  NOT  =  "OK"   GO  TO  END-GOT-GROSS-COUNT. 

IF  TERMINAL-TYPE (WHO)  =  SIMULATOR 
MOVE  9999  TO  RECEIVED-COUNT (WHO) 
MOVE  8  TO  REPLY-LENGTH. 

MOVE  RECEIVED-COUNT (WHO)  TO  NUMBER-STRING. 

PERFORM  JUSTIFY-AND-TEST  THRU  END-JUSTIFY-AND-TEST . 

MOVE  NUMBER-STRING  TO  RECEIVED-COUNT (WHO) . 

IF  JUSTIFY-RESULT  =  GOOD   GO  TO  PROMPT-FOR-NET. 

***   OPERATOR  ENTERED  INVALID  DATA  -  TRY  HIM  AGAIN. 

IF  TERMINAL-TYPE (WHO)  =  RT805 

CALL  "FDPRRD"  USING  RESULT,  RECEIVED-COUNT-HEADER (WHO) , 

KEYPAD-SIZE,  WHO, 
KEYPAD-READ-COMMAND , 
RECEIVED-PROMPT,  PART-SIZE,  KEY-CODE. 

IF  TERMINAL-TYPE (WHO)  =  SIMULATOR 

CALL  "FDPRRD"  USING  RESULT,  RECEIVED-COUNT-HEADER(WHO) , 
SIMULATOR-READ-SIZE,  WHO, 
SIMULATOR-READ-COMMAND, 
RECEIVED-PROMPT,  PART-SIZE,  KEY-CODE. 

IF  RESULT  NOT  =  "OK"   GO  TO  PROMPT-FAIL-ERROR-EXIT. 

GO  TO  END-GOT-GROSS-COUNT. 

PROMPT-FOR-NET. 

IF  TERMINAL-TYPE (WHO)  =  RT805 

CALL  "FDPRRD"  USING  RESULT,  ACCEPTED-COUNT-HEADER (WHO) , 

KEYPAD-SIZE,  WHO, 
KEYPAD-READ-COMMAND , 
ACCEPTED-PROMPT,  PART-SIZE,  KEY-CODE. 

IF  TERMINAL-TYPE (WHO)  =  SIMULATOR 

CALL  "FDPRRD"  USING  RESULT,  ACCEPTED-COUNT-HEADER (WHO) , 
SIMULATOR-READ-SIZE,  WHO, 
SIMULATOR-READ-COMMAND, 
RECEIVED-PROMPT,  PART-SIZE,  KEY-CODE. 

IF  RESULT  NOT  =  "OK"   GO  TO  PROMPT-FAIL-ERROR-EXIT. 

MOVE  WAIT-FOR-NET-COUNT  TO  TERMINAL-STATE (WHO) . 
END-GOT-GROSS-COUNT . 
EXIT. 
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GOT-NET-COUNT. 

CALL  "FDSTAT"  USING  STATUS- VECTOR,  WHO, 

ACCEPTED-COUNT-HEADER (WHO) , 
STATUS-COMMAND ,  STATUS- VECTOR-S I Z  E . 

IF  SUMMARY-STATUS  NOT  »  "OK"   GO  TO  END-GOT-NET-COUNT. 

IF  TERMINAL-TYPE  (WHO)  =■  SIMULATOR 
MOVE  987  6  TO  ACCEPTED-COUNT (WHO) 
MOVE  8  TO  REPLY-LENGTH. 

MOVE  ACCEPTED-COUNT (WHO)  TO  NUMBER-STRING. 

PERFORM  JUSTIFY-AND-TEST  THRU  END-JUSTIFY-AND-TEST. 

MOVE  NUMBER-STRING  TO  ACCEPTED-COUNT (WHO) . 

IF  JUSTIFY-RESULT  =  GOOD   GO  TO  COMPARE-ENTRIES. 


RETRY -NET-COUNT. 
***   OPERATOR  ENTERED  INVALID  DATA 


TRY  HIM  AGAIN, 


IF  TERMINAL-TYPE (WHO)  =  RT805 

CALL  "FDPRRD"  USING  RESULT,  ACCEPTED-COUNT-HEADER (WHO) , 

KEYPAD-SIZE,  WHO, 
KEYPAD-READ-COMMAND , 
ACCEPTED-PROMPT,  PART-SIZE,  KEY-CODE. 

IF  TERMINAL-TYPE (WHO)  =  SIMULATOR 

CALL  "FDPRRD"  USING  RESULT,  ACCEPTED-COUNT-HEADER (WHO) , 

SIMULATOR-READ-SIZE,  WHO, 
SIMULATOR-READ-COMMAND , 
RECEIVED-PROMPT,  PART-SIZE,  KEY-CODE. 

IF  RESULT  NOT  =  "OK"   GO  TO  PROMPT-FAIL-ERROR-EXIT. 

GO  TO  END-GOT-NET-COUNT. 

COMPARE-ENTRIES. 

IF  ACCEPTED-COUNT (WHO)  >  RECEIVED-COUNT (WHO) 
GO  TO  RETRY -NET-COUNT. 

MOVE  GOT-ALL-DATA  TO  TERMINAL-STATE (WHO) . 
END-GOT-NET-COUNT . 
EXIT. 
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JUSTIFY-AND-TEST. 

***   THIS  PROCEDURE  IS  USED  TO  RIGHT-JUSTIFY  THE  COUNT  OF  PARTS 
***   RECEIVED  OR  PARTS  ACCEPTED,  AND  TO  VERIFY  THAT  THE  COUNT 
***   IS  A  NUMERIC  INTEGER  DATUM. 


IF  REPLY-LENGTH  <  5 
IF  REPLY-LENGTH  >  8 

IF  REPLY-LENGTH  <  8 
IF  REPLY-LENGTH  <  7 
IF  REPLY-LENGTH  <  6 

NUMBER-IS-JUSTIFIED. 


GO  TO  NUMBER-IS-BAD. 
GO  TO  NUMBER-IS-BAD. 

PERFORM  RIGHT-SHIFT-NUMBER. 
PERFORM  RIGHT-SHIFT-NUMBER. 
PERFORM  RIGHT-SHIFT-NUMBER. 


IF 

DIGIT- 

■1 

< 

0 

GO 

TO 

NUMBER- 

■IS- 

-BAD 

IF 

DIGIT- 

•2 

< 

0 

GO 

TO 

NUMBER- 

■IS- 

-BAD 

IF 

DIGIT- 

-3 

< 

0 

GO 

TO 

NUMBER- 

-IS- 

-BAD 

IF 

DIGIT- 

-4 

< 

0 

GO 

TO 

NUMBER- 

■IS- 

-BAD 

IF 

DIGIT- 

•1 

> 

9 

GO 

TO 

NUMBER- 

■IS- 

-BAD 

IF 

DIGIT- 

-2 

> 

9 

GO 

TO 

NUMBER- 

-IS- 

-BAD 

IF 

DIGIT- 

-3 

> 

9 

GO 

TO 

NUMBER- 

■IS- 

-BAD 

IF 

DIGIT- 

•4 

> 

9 

GO 

TO 

NUMBER- 

-IS- 

-BAD 

NUMBER-IS-GOOD. 

MOVE  GOOD  TO  JUSTIFY-RESULT. 

GO  TO  END-JUSTIFY-AND-TEST. 
NUMBER-IS-BAD. 

MOVE  BAD  TO  JUSTIFY-RESULT. 
END-JUSTIFY-AND-TEST. 

EXIT. 

RIGHT-SHIFT-NUMBER. 

MOVE  DIGIT-3  TO  DIGIT-4. 
MOVE  DIGIT-2  TO  DIGIT-3. 
MOVE  DIGIT-1  TO  DIGIT-2. 
MOVE  ZERO  TO  DIGIT-1. 
END-RIGHT-SHIFT-NUMBER. 
EXIT. 
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CONVERT-DEVICE-NUMBER. 

***   THIS  PROCEDURE  IS  USED  TO  CONVERT  THE  DEVICE  NUMBER  TO 
***   AN  OCTAL-ASCII  3-CHARACTER  STRING  IN  DEVICE-NUMBER-BUFFER. 

MOVE  DEVICE-NUMBER (WHO)  TO  TEMP-ONE. 

MOVE  "0"  TO  DIG-1. 
MOVE  "0"  TO  DIG- 2. 
MOVE  "0"  TO  DIG-3. 


IF 

TEMP-ONE 

NOT 

< 

128 

ADD  2  TO 

DIG-1. 

IF 

TEMP-ONE 

NOT 

< 

128 

SUBTRACT 

128  FROM  TEMP-ONE 

IF 

TEMP-ONE 

NOT 

< 

64 

ADD  1  TO 

DIG-1. 

IF 

TEMP -ONE 

NOT 

< 

64 

SUBTRACT 

64  FROM  TEMP-ONE. 

IF 

TEMP-ONE 

NOT 

< 

32 

ADD  4  TO 

DIG-2. 

IF 

TEMP-ONE 

NOT 

< 

32 

SUBTRACT 

3  2  FROM  TEMP-ONE. 

IF 

TEMP-ONE 

NOT 

< 

16 

ADD  2  TO 

DIG-2. 

IF 

TEMP -ONE 

NOT 

< 

16 

SUBTRACT 

16  FROM  TEMP-ONE. 

IF 

TEMP-ONE 

NOT 

< 

8 

ADD  1  TO 

DIG-2. 

IF 

TEMP -ONE 

NOT 

< 

8 

SUBTRACT 

8  FROM  TEMP-ONE. 

IF 

TEMP-ONE 

NOT 

< 

4 

ADD  4  TO 

DIG-3. 

IF 

TEMP-ONE 

NOT 

< 

4 

SUBTRACT 

4  FROM  TEMP-ONE. 

IF 

TEMP-ONE 

NOT 

< 

2 

ADD  2  TO 

DIG-3. 

IF 

TEMP-ONE 

NOT 

< 

2 

SUBTRACT 

2  FROM  TEMP-ONE. 

IF 

TEMP-ONE 

NOT 

< 

1 

ADD  1  TO 

DIG-3. 

MOVE  DEVICE- 

-STRING  TO 

DEVICE-NUMBER-BUFFER. 

END-CONVERT-DEVICE-NUMBER. 

EXIT. 
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00731 
00732 
00733 
00734 
00735 
00736 
00737 
00738 
00739 
00740 
00741 
00742 
00743 
00744 
00745 
00746 
00747 
00748 
00749 
00750 
00751 
00752 
00753 
00754 
00755 
00756 
00757 
00758 
00759 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 
00768 
00769 
00770 
00771 
00772 
00773 


/ 


INIT-ERROR-EXIT. 

DISPLAY  "FDINIT  BAD  RESULT  =  ",  RESULT  UPON  TRACER. 
GO  TO  END-JOB. 

BAD-TYPE-ERROR-EXIT . 

DISPLAY  "TERMINAL  IS  NOT  A  RT805"  UPON  TRACER. 
GO  TO  END-JOB. 


ALL-USED-ERROR-EXIT . 

DISPLAY  "ALL  T"3RMINALS  USED 

UPON  TRACE'' , 
GO  TO  END- JOB. 


LOGIC  ERROR  IN  CODE' 


CONNECT-FAIL-ERROR-EXIT. 

DISPLAY  "FDCONN  BAD  RESULT  =  ",  RESULT  UPON  TRACER. 
GO  TO  END- JOB. 

DISCONNECT-FAIL-ERROR-EXIT. 

DISPLAY  "FDDISC  BAD  RESULT  =  ",  IRESULT  UPON  TRACER. 
GO  TO  END-JOB. 

PROMPT-FAIL-iiRROR-EXIT. 

DISPLAY  "FDPRRD  BAD  RESULT  =  ",  RESULT  UPON  TRACTS. 
GO  TO  END- JOB. 

WRITE-FAIL-ERROR-EXIT. 

DISPLAY  "FDWRIT  BAD  RESULT  =  ",  RESULT  UPON  TRACER. 
GO  TO  END-JOB. 

BAD-WAIT-ERROR-EXIT. 

DISPLAY  "BAD  RESULT  FROM  FDWAIT"  UPON  TRACER. 
GO  TO  END-JOB. 

EMPTY-FILE. 

DISPLAY  "SEQUENCE  FILE  OPENED  OK,  BUT  WAS  EMPTY" 

UPON  TRACER. 
GO  TO  END- JOB. 


END-JOB. 

STOP  RUN, 
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CHAPTER  6 


USING  THE  ATS  DISPATCHER 


6.1     OVERVIEW 

A  task  dispatcher  monitors  terminals  for  user  requests  to  run  tasks.  On  receiving  a  request  to  run  a  task, 
the  dispatcher  activates  the  task  and  associates  it  with  the  initiating  terminal.  A  dispatcher  allows  a 
single  task  to  be  run  at  any  of  several  terminals,  and  may  allow  a  single  terminal  access  to  several  tasks. 

The  Application  Terminal  Support  (ATS)  Dispatcher  (DSP)  is  available  on  DPM-PLUS  systems.  This 
dispatcher  allows  the  user  to  run  tasks  from  terminals  connected  to  the  DECdataway  through  a 
DPMOI/VTl  10  multiplexer,  and  from  TT:  slaved  terminals. 

DSP  will  dynamically  redirect  a  task's  pseudodevice  Tl:  to  the  terminal  from  which  the  task  was  in- 
voked. This  redirection  allows  a  single  interactive  task  to  run  at  any  terminal  without  explicitly  identi- 
fying the  terminal. 

DSP  can  create  and  install  tasks  as  they  are  requested.  When  a  requested  task  is  already  active,  DSP 
will  create  and  install  an  additional  copy  of  the  task  if  it  is  installed  with  a  name  of  the  form  ...tsk.  (See 
the  task  naming  conventions  in  the  RSX-I IM/M-PLLS  XtCR  Operations  Manual.  See  also  the  de- 
scription of  the  /MU  switch  in  the  RSX-I  I M/M-PLiS  Task  Builder  Reference  Manual.) 

In  most  installations  it  is  desirable  to  protect  the  system  from  unauthorized  unc  and  lo  restrict  access  to 
tasks  which  retrieve  confidential  information  or  perform  critical  functions  The  \TS  Dispatcher  pro- 
vides facilities  for  protecting  both  the  system  and  specific  tasks.  These  protection  facilities  can  be  used 
to  limit: 


•  Who  may  use  the  system. 

•  Who  may  use  particular  terminals. 

•  Who  may  run  a  particular  task. 

•  Which  terminals  may  be  used  to  run  a  particular  task. 

6.2    ACCESS  CONTROL 

DSP  provides  methods  for  restricting  access  to  the  system  and  to  individual  tasks. 

System  protection  is  provided  by  requiring  that  each  user  provide  a  user  identification  code  (userid) 
and  password  prior  to  running  any  tasks.  The  dispatcher  verifies  that  the  supplied  information  is  in  a 
control  file  before  allowing  the  user  access  to  the  system.  Optionally,  DSP  may  be  built  so  that  a  par- 
ticular userid  and  password  may  be  valid  for  only  a  specific  set  o''  terminals. 

Two  levels  of  task  protection  arc  supported.  At  the  lower  level,  the  name  of  a  requested  task  is  simply 
confirmed  as  present  in  a  control  file  before  the  task  is  run.  ,\t  the  higher  level,  the  information  sup- 
plied by  the  user  when  logging  in  (and  optionally  the  terminal  at  which  the  user  logged  in)  determine 
membership  in  a  privilege  category  called  a  Run  Class.  A  user  is  able  to  run  a  task  only  if  the  control 
file  contains  the  t?sK  s  name  associated  with  the  user''  current  Run  Class. 
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6.2.1  System  ProtectkM 

DSP  can  be  built  with  no  system  protection.  In  this  case,  anyone  may  use  a  terminal  once  it  has  been 
connected  to  DSP.  Any  task  run  from  a  DSP-connected  terminal  will  have  the  default  UIC  [300.300] 
(unless  another  default  UIC  was  selected  during  the  DPM  host  build  procedure). 

When  system  protection  is  selected,  a  user  must  provide  a  Login  Code  to  gain  access  to  the  system.  A 
Login  Code  consists  of  a  user  identification  (userid)  of  1-10  characters  and  a  password  of  1-6  charac- 
ters. A  control  file,  RUNCLS.TXT,  contains  all  the  Login  Codes.  It  also  associates  each  user's  Login 
Code  with  a  default  UIC  to  be  used  for  any  task  the  user  runs.  Each  such  entry  in  the  control  file  is 
called  a  User  Descriptor. 

DSP  may  also  be  built  to  limit  access  to  specific  terminals.  When  a  user  attempts  to  log  in  to  the  sys- 
tem, DSP  verifies  that  the  Login  Code  provided  is  valid  at  the  terminal.  Each  User  Descriptor  in  the 
control  file  RUNCLS.TXT  associates  a  Login  Code,  a  default  UIC,  and  a  group  of  terminals  called  a 
Terminal  Class.  Individual  terminals  are  grouped  into  a  control  file  called  the  Terminal  Class  File 
(TRMCLS.TXT).  If  DSP  is  unable  to  find  an  entry  in  RUNCLS.TXT  combining  the  Login  Cede  and 
the  terminal's  class,  the  login  attempt  will  be  rejected. 

6.2.2  Task  Protection 

DSP  can  be  built  with  no  task  protection.  In  this  case,  any  user  may  run  any  installed  task.  This  condi- 
tion provides  no  security,  and  is  undesirable  for  the  great  majority  of  installations. 

Ont  of  two  levels  of  task  protection  may  be  selected.  At  the  low  level,  only  installed  tasks  that  are 
named  in  a  control  file,  TASK.TXT,  may  be  run  from  DSP-connected  terminals.  This  level  prevents  all 
users  from  running  tasks  not  named  in  the  control  file. 

If  DSP  is  built  with  the  high  level  of  task  protection,  individual  tasks  may  be  run  only  by  users  in 
specified  privilege  groups.  A  privilege  group  or  Run  Class  is  defined  in  the  control  file  RUNCLS.TXT 
Each  Run  Class  consists  of  a  set  of  User  Descriptors  preceded  by  a  Run  Class  identifier. 

6.2.3  DSP  Access  Control  Support 

The  system  and  task  protection  mechanisms  discussed  earlier  are  combined,  based  upon  responses  to 
queries  in  the  host  build  procedure,  to  produce  a  dispatcher  supporting  one  of  four  forms  of  access 
control: 

1.  Unprotected  System 

Anyone  can  use  the  system  to  run  any  installed  task.  There  is  no  protection  from  unautho- 
rized system  and/or  task  access. 

CAUTION 

Use  of  the  dispatcher  with  no  protection  is  not  rec- 
ommended. 

2.  Limited  Task  Protection 


Anyone  can  use  the  system,  but  can  run  only  the  tasks  listed  by  name  in  the  task  control  file. 

3.      Login  Protection 

System  access  is  limited  to  users  who  supply  valid  Login  Codes.  Specific  tasks  may  be  run 
only  by  members  of  specified  Run  Classes. 
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4.      Terminal-Based  Protection 

System  access  is  limited  to  users  who  supply  Login  Codes  valid  for  their  terminals.  Tasks 
may  be  run  only  by  members  of  specified  Run  Classes. 

6.2.4    Example  of  Access  Control 

The  following  example  illustrates  the  four  forms  of  access  control  supported  by  DSP. 

Bob,  Joe,  and  Fred  work  in  a  company's  shipping  department.  They  run  m  inventory  task  named  INV. 
Tom,  Alice,  and  Jack  work  in  the  accounting  department.  They  use  three  tasks: 

•  INV 

•  CST,  a  special  accounting  task  which  tracks  the  cost  of  parts. 

•  PROF,  another  special  accounting  task  containing  a  confidential  profit  and  loss  statement. 

Also,  visitors  can  run  the  task  INTRO  from  a  terminal  in  the  lobby.  INTRO  displays  an  introduction  to 
the  company  and  its  products. 


Unprotected  System 


At  this  installation,  it  is  unwise  to  build  DSP  with  no  protection. 

With  no  access  control,  anyone,  even  a  visitor  in  the  lobby,  can  run  tasks  from  any  terminal 
connected  to  DSP.  Employees  could  innocently  invoke  tasks  which  could  cause  serious  data 
loss,  or  they  could  gain  access  to  confidential  information. 


Limited  Task  Protection 


• 


To  limit  access  to  particular  tasks,  the  system  manager  can  rebuilc  :  ATS  Dispatcher  to 
restrict  the  tasks  that  can  be  run  from  terminals  to  only  those  tasks  appearing  in  the  task 
control  file.  In  this  case,  anyone  can  run  a  task — provided  that  it  is  in  the  task  control  file.  All 
users  are  treated  the  same  way;  what  one  user  can  run,  any  user  can  run.  Thus,  a  task  control 
file  containing  only  INV,  CST,  PROF,  and  INTRO  will  not  allow  anyone  to  run  BOO  and 
INI,  for  example,  on  terminals  connected  to  DSP. 


Login  Protection 


Although  the  task  control  file  prevents  all  u.scrs  from  running  critical  tasks  like  BOO  and 
INI,  the  system  manager  still  wishes  to  differentiate  between  users  according  to  what  specif- 
ic tasks  they  should  be  allowed  to  run.  For  example,  the  shippers  should  not  be  able  to  run  the 
accounting  tasks  CST  and  PROF.  And  visitors,  of  course,  should  be  able  to  run  only  INTRO. 
To  protect  tasks  from  certain  users,  therefore,  the  system  manager  rebuilds  the  ATS  Dis- 
patcher and  creates  the  Run  Class  File  RUNCLS.TXT.  It  contains  three  classes: 


1^^ 


1.  A  Run  Class  of  assembly  workers  who  are  restricted  from  tasks  they  do  not  need:  CST 
and  PROF 

2.  A  Run  Class  of  accountants  who  are  given  access  to  all  ihe  tasks  thev  need:  CST, 
PROF,  and  INV 

3.  A  Run  Class  of  visitors  who  are  restricted  from  every  task  except  INTRO 


(>-} 


The  Run  Class  File  that  creates  these  three  classes  contains  each  user's  descriptor,  consisting 
of  userid,  password,  and  User  Identification  Code  (UIC).  The  example  follows: 


#1 

BOB 
JOE 
FRED 


3VG 
JGH 
FRESH 


[112,25] 
[112,26] 
[112,27] 


•Shippers 


n 

TOM 

ALICE 

JACK 


MOT 

WISK 

JRV 


[105,30] 
[105,31] 
[105,32] 


Accountants 


#3 
HI 


VISITOR 


[300,300] 


Any  visitor 


Now,  by  entering  these  Run  Classes  into  TASK. TXT,  the  sysiem  manager  applies  the  desired  access 
control: 


INV 

1,2 

CST 

2 

PROF 

2 

INTRO 

3 

Notice  that  Run  Class  1,  the  shippers,  may  run  only  the  INV  task. 


Terminal  Based  Protection 


There  may  be  a  need  to  further  restrict  access:  not  just  by  user  and  task,  but  also  by  terminal 
locations.  If  the  system  manager  wishes  a  worker  to  be  able  to  run  INV  from  only  his  own 
department's  terminals,  the  manager  should  rebuild  the  dispatcher,  create  the  Terminal 
Class  File  (TRMCLS.TXT),  and  modify  the  Run  Class  File.  Here  is  an  example  of 
TRMCLS.TXT: 


#1 
SB: 

#2 
SB: 


#3 

SB:         7 

The  terminals  1  through  3,  in  the  shipping  department,  constitute  Terminal  Class  I,  and  the  terminals 
in  the  accounting  department  constitute  Terminal  Class  2.  The  lobby  terminal  (7)  is  in  its  own  class.  3, 
so  that  employees  cannot  display  confidential  data  at  the  lobby  terminal. 
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After  creating  these  Terminal  Classes,  the  system  manager  inserts  them  into  the  Run  Class  File,  associ- 
ating them  with  the  appropriate  User  Descriptors.  RUNCLS.TXT  now  looks  like  this: 


#1 

BOB 
JOE 
FRED 

3VG 
JGH 
FRESH 

[112,25] 
[112,26] 
[112,27] 

1 
1 
1 

#2 

TOM 
ALICE 
JACK 

MOT 

WISK 

JRV 

[105,30] 

105,31] 

[105,32] 

2 
2 
2 

#3 
HI 

VISITOR 

[300,300] 

3 

Notice  that  the  only  change  made  in  the  Run  Class  File  was  to  add  an  extra  column  for  Terminal  Class 
entries.  Now,  an  accountant  can  log  in  and  run  INV  only  from  a  terminal  in  the  accounting  department. 
A  full  explanation  of  how  to  create  the  three  control  files  is  given  in  the  DPM/DPM-PLUS  System 
Generation  and  Management  Guide. 


6.3    SYSTEM  NOTES  ON  DSP 

6.3.1  Prerequisites  to  Using  DSP 

There  are  four  prerequisites  to  using  DSP  from  DECdataway  terminals: 

1 .  The  ATS  software  must  be  running.  (SBTACP  must  be  running.  DSP  and  DSPPRT  must  be 
installed.) 

2.  The  terminal  must  be  mounted.  When  SBTACP  is  run,  it  automatically  mounts  all  units  con- 
figured as  DPMOl/VTl  lO's.  (Confirm  that  units  are  mounted  by  issuing  the  MCR  command 
DEVSB:.) 

:  '  Jfe      All  control  files  necessary  for  the  desired  protection  level  must  be  created. 

4.      The  terminal  must  be  connected  to  DSP  by  the  Connect/ Disconnect  Utility  (CDU). 

For  the  'tails  of  these  prerequisites,  see  the  DPM/DPM-PLUS  System  Generation  and  Management 
Guide. 

6.3.2  Task  Naming  Conventions  for  the  Task  File 

In  entering  the  task  names  into  the  file,  note  that  users,  in  order  to  invoke  a  task,  must  begin  with  at 
least  the  characters  of  the  taskname  in  the  file.  Beyond  that  minimum  name,  users  can  type  "extra" 
characters,  and  the  task  will  still  be  invoked. 

For  example,  assume  that  the  following  task  names  exist  in  the  task  file.  (The  task  named  as  INV  in  the 
file  has  been  installed  with  the  multiple-copy  taskname  ...INV.) 

INV  .__v;v:._;^_::.^... _::,._._,._    _____  .      _  ^^   ^      ^ 

IN 

INITIAL 
INPUT 
INVO 
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Here  are  some  names  that  users  might  type  to  invoke  tasks,  and  the  effects  of  typing  them: 


A  user  types: 

The  task  name  selected  is: 

INVENTORY 

INV 

INIT 

IN 

INITIALIZE 

INITIAL 

INVOICE 

INVO 

INV 

INV 

I 

No  task;  an  error  results  because  "I"  does  not  include  the  full  name 

of  any  task  in  the  file. 

After  DSP  selects  the  task  name  from  the  file,  it  determines  if  there  is  an  installed  task  whose  name 
matches  the  first  six  characters  of  the  selected  task  name.  If  so,  that  task  is  run.  If  not,  DSP  attempts  to 
run  a  task  installed  by  a  name  of  the  form  ...tsk.  This  name  consists  of  three  dots  followed  by  the  first 
three  characters  of  the  selected  task's  name  (e.g.,  ...INV).  If  DSP  can  find  neither  of  these  tasks  in- 
stalled, it  displays  an  error  message  at  the  user's  terminal. 

6.3.2.1     Multiple  Copy  Tasks 

Note  that  although  it  is  installed  by  a  task  name  of  ...tsk,  a  multiple-copy  task  is  entered  into  the  task 
control  file  by  a  task  name  of  the  form  tsk,  with  or  without  additional  characters.  That  is,  the  leading 
dots  are  omitted,  and  at  least  the  three  leading  alphanumeric  characters  are  kept.  Thus,  the  task  in- 
stalled as  ...INV,  though  named  INV  in  the  task  file,  could  just  as  well  have  named  INVENT  or  IN- 
VENTORY in  the  file. 

As  long  as  there  are  no  conflicts  with  other  task  names  in  the  file,  a  user  can  run  the  ...INV  task  by 
typing  INV,  INVENT,  or  INVENTORY. 

When  the  task  copy  runs,  the  system  gives  it  a  name  consisting  of  the  first  three  characters  of  the  task 
name,  followed  by  the  first  character  of  the  device  type,  followed  by  the  device  unit  number.  For  ex- 
ample, INV  running  on  SB22:  is  named  INVS22.  Or,  CST  running  on  SB  165:  is  named  CSTSF5. 

Any  task  run  by  DSP  can  use  the  GMCR$  directive  to  receive  the  command  line.  The  task  does  not 
have  to  be  installed  with  a  task  name  of  the  form  ...tsk. 

6.3.3    Setting  Up  the  HELP  Facility  for  DSP  Terminals 

The  HELP  facility  allows  the  user  to  request  information  from  a  system  HELP  file  through  DSP.  Cre- 
ate the  file  ATS.HLP,  as  described  in  the  RSX-1 1 M-PLUS  Command  Language  Manual.  This  file 
should  begin  with  text  to  be  displayed  when  the  user  types  HELP  at  a  DSP  terminal.  For  example: 

THIS  IS  THE  ATS  HELP  FILE. 

HELP  IS  AVAILABLE  FOR  THE  FOLLOWINC: 

LOGIN      LOGOUT      INFO      INVENTORY      GENERAL 
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Any  user  can  display  HELP  information  when  the  DSP>  prompt  appears.  A  user's  entering  the  HELP 
keyword  at  a  DSP  terminal  is  equivalent  to  a  user's  entering  HELP/ ATS  at  an  MCR  terminal.  The 
HELLO  task  must  be  installed  as  ...HEL,  but  need  not  appear  in  the  task  control  file. 

6.4     USER'S  GUIDE  TO  DSP-CONNECTED  TERMINALS 

6.4.1  The  HELP  Facility 

Any  time  your  terminal  displays  the  prompt  DSP>  you  may  display  information  about  the  system  or 
individual  functions  in  your  system  by  using  the  HELP  facility.  To  display  general  information  at  your 
terminal,  type: 

HELP 

For  information  about  a  specific  feature,  task,  or  function,  type: 

HELP  keyword  1  keyword2  .. 
where  the  keywords  identify  the  specific  features.  For  example, 

DSP>  HELP  INVENTORY  UPDATE 

would  display  information  on  updating  the  inventory  file.  The  valid  keywords  and  the  specific  informa- 
tion available  to  you  are  determined  by  your  system  manager. 

6.4.2  Logging  In  and  Out 

All  DSP-connected  terminals  normally  display  the  DSP>  prompt.  Type  the  RETURN  key;  if  DSP> 
then  appears,  you  need  not  log  in  to  run  a  task.  If  the  USERID:  prompt  appears  instead,  follow  the 
login  instructions  in  the  next  paragraph. 

To  log  in,  type  your  userid.  The  prompt  PASSWORD:  will  appear.  Type  your  password,  which  will  not 
echo  (appear)  at  the  terminal. 

If  the  system  finds  your  userid  -.wu  password  valid,  a  login  message  appears,  followed  by  the  DSP> 
prompt.  Otherwise,  an  error  m'tssage  appears.  Error  messages  are  listed  and  explained  in  Section  6.4.5 
of  this  manual. 

When  you  are  finished  using  a  terminal,  you  should  log  out  of  the  system.  To  log  out,  type  the  word 
LOGOUT  in  response  to  the  prompt  DSP>,  then  type  the  RETURN  key.  A  logout  message  will  ap- 
pear. 
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The  following  example  shows  the  login  and  logout  sequences: 


DSP>  <CR> 

USERID:     JARR 

PASSWORD: 

DSP    --      SB31:       LOGGED    IN,    Run    Class    5 

8-APR-80  15:56 

DSP> INVENTORY  I NgUIRY/M7840 


nSP>  INVENTORY 


RECORD/M7840 


DSP>  LOGOUT    <CR^ 

DSP    --      SB31:  LOGGED    OUT 

8-APR-80  16:01 


I    »his  example,  SB31:  is  the  terminars  address  on  the  DECdataway. 

If  you  do  not  enter  a  terminated  line  for  two  minutes  after  c  DSP>  prompt  appears,  the  dispatcher 
automatically  logs  you  out.  You  are  also  automatically  logged  out  if  the  terminal  is  disconnected  from 
the  dispatcher  by  the  CDL  program. 

6.4.3  Jmokinf;  Tasks 

The  .ATS  Dispatcher  shows  its  readiness  to  accept  input  by  displaying  the  prompt  DSH  >  at  your  Jcrmi- 
nal.  To  invoke  any  task,  just  type  the  task  name  followed  by  any  desired  parameters.  Remember  to  type 
the  full  I.  Me.  If  the  task  name  is  INVENT,  for  example,  type  INVENT  and  not  IN;  there  ma>  in  fact 
be  another  task  named  IN. 


Remember  also  that  once  you  invoke  one  task,  you  cannot  invoke  an«uher  until  the  first  task  is  com- 
pleted and  the  DSP>  prompt  reappears  at  the  terminal. 

If  you  tr\  to  invoke  a  task  which  you  have  not  been  given  the  right  to  run.  you  will  receive  an  error 
message.  Error  messages  are  listed  and  explained  in  Section  6.4.5  o\'  this  manual. 


6-8 


'■^■•:-'- 


In  the  following  example,  a  user  invokes  a  task  and  specifies  parameters: 


DSP> UPDATE  MASTER  EMPLOYEES  /NEW  WAGES 

UPDATE  -  INFORMATION  UPDATING  TASK  -  MASTER  EMPLOYEE  FILE 

PLEASE  TYPE  EMPLOYEE  #:  1422 

PLEASE  ENTER  NEW  HOURLY  RATE:  11.55 

PLEASE  ENTER  NEW  OVERTIME  RATE  IF  ANY:  24.00 

REASON  FOR  RATE  CHANGE?   SEMI-ANNUAL  RAISE 

RATE  CHANGE  EN 'ERED  FOR  EMPLOYEE  #1422   JOHN  DOE 

UPDATE  ...  OPE.MTION  COMPLETE 

DSP> 


The  user  has  run  the  task  UPDATE  to  enter  new  wages  for  an  employee  in  the  Master  Employee  File; 
on  completion,  DSP  reissues  its  prompt. 

6.4.4  Blocking  Terminal  Output:  CFRL/S  And  CTRL/Q 

To  block  output  to  your  terminal,  type  the  CTRL/S  combination:  hold  down  the  CTRL  key  while  typ- 
ing S,  and  release  both  keys.  To  resume  output,  type  the  CTRL/Q  combination  in  the  same  fashion. 

Once  CTRL/S  has  been  issued  at  a  terminal  and  is  in  effect,  that  terminal  cannot  be  disconnected  from 
the  dispatcher.  Only  after  CTRL/Q  has  been  issued  at  that  terminal  can  it  be  disconnected.  Do  not 
leave  a  terminal  after  typing  CTRL/S. 

6.4.5  Error  Messages 

The  error  messages  that  follow  are  sent  to  the  issuing  terminal. 

DSP  -  TASK  "DSPPRr*  NOT  INSTALLED  UNDER  THE  NAME  »*DSPPRT'* 

The  protection  task  is  not  installed  under  the  name  DSPPRT.  See  the  system  manager. 
DSP  --  ILLEGAL  CHARACTERS  IN  TASK  NAME 

The  task  name  specified  contains  non-alphanumeric  characters. 
DSP  -  USER  NOT  LOGGED  IN 

You  must  be  logged  in  to  run  a  task. 
DSP  -  NO  ENTRY  FOR  DDXX:  IN  TERMINAL  CLASS  FILE 

The  terminal  you  are  trying  to  use.  DDXX:,  docs  not  have  an  entry  in  the  Terminal  Class  File. 
DSP  -  NO  ENTRY  FOR  "XXXXXX''  IN  TASK  FILE 

The  task  specified  was  not  found  in  the  task  control  file. 
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DSP  --  PRIVILEGE  VIOLATION 

You  arc  not  authorized  to  run  the  specified  task. 
DSP  --  INVALID  ACCOUNT 


There  is  no  entry  in  the  Run  Class  File  to  match  the  USERID  and  PASSWORD  you  entered  at 
your  terminal. 

DSP  --  DIRECTIVE  ERROR  DURING  XVZ  ON  ABC  FILE,  ERROR  CODE  =  -xxx 

An  error  occurred  while  trying  to  access  the  file  ABC.  XYZ  can  be  OPEN,  GET,  or  CLOSE; 
ABC  can  be  TERMINAL  CLASS,  RUN  CLASS,  or  TASK.  The  error  codes  are  explained  in 
Appendix  I  of  the  IAS/RSX-1 1  I/O  Operations  Reference  Manual.  See  the  system  manager. 

DSP  --  I/O  ERROR  DURING  XVZ  ON  ABC  FILE,  ERROR  CODE  =  -xxx 

An  error  occurred  while  trying  to  access  the  file  ABC.  XVZ  can  be  OPEN.  GET,  or  CLOSE; 
ABC  can  be  TERMINAL  CLASS,  RUN  CLASS,  or  TASK.  The  error  codes  are  explained  in 
.Appendix  1  of  the  IAS/RSX-1 1  I/O  Operations  Reference  Manual.  See  the  system  manager. 

DSP  --  UIC  SYNTAX  ERROR  IN  RUN  CLASS  FILE 

The  Lie  specified  in  the  Run  Class  File  is  not  of  the  format  [x,y].  See  the  system  manager. 

DSP  --  TASK  FILE  FORMAT  ERROR 

The  entries  in  the  task  control  file  do  not  conform  to  syntax  rules  specified  in  the  DPM/DPM- 
PLVS  System  Generation  and  Management  Guide.  See  the  system  manager. 

DSP  --  INPUT  STRING  EXCEEDS  MAXIMUM  LENGTH 

The  command  line  must  be  no  longer  than  80  characters.  Uscrid  may  not  exceed  10  characters, 
and  password  may  not  exceed  6  characters. 

DSP  --  RUN  CLASS  FILE  FORMAT  ERROR 

.\  Run  Class  is  not  specified  as  a  decimal  number;  or.  the  first  entry  in  the  Run  Class  File  is  not  a 
Run  Class  Identifier  of  the  form  n.  where  n  is  the  Run  Class  number.  See  the  system  manager. 
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APPENDIX  A 


RT80x  TERMINALS 


A.l     RT80X  OPERATOR'S  GUIDE 


A.  1.1     Controls  And  Indicators 

Tables  A-1  and  A-2,  respectively,  describe  the  RT801  and  RT803  controls  and  indicators  illustrated  in 
Figures  A-1  and  A-2.  The  RT805  controls  and  indicators  (Figure  A-3)  are  similar  to  those  of  the  RT803 
with  the  following  exceptions: 

1.  There  are  eight  transaction  keys  on  the  RT805  versus  one  on  the  RT803. 

2.  The  RT805  has  a  Type  5  badge  reader  in  addition  to  the  Type  3  reader,  plus  two  additional 
guidance  indicators: 

»-:      A  white  illuminated  arrow  that  directs  the  operator's  attention  to  the  Type  5  badge 

reader. 

BADGE:   A  white  illuminated  BADGE  indicator  that  prompts  the  operator  to  insert  a  badge  in 
the  Type  5  badge  reader. 


The  function  of  the  single  RT803  transaction  key  and  the  eight  RT805  transaction  keys  is  defined  by 
the  user.  The  function  of  each  key  is  user-printed  on  an  instruction  insert  which  is  installed  behind  a 
removable  window. 
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Figure  A-1     RT801  Controls  and  Indicators 
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Figure  A-2.    RT803  Controls  and  Indicators 
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Figure  A-3.    RT805  Controls  and  Indicators 
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Figure  A-4.     RT801/803/805  Keyswitch 
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Table  A-1     RT801  Controls  and  Indicators 


Control  or  Indicator 


Fig. 
Ref 


Description 


Time-of-Day  Display 


Guidance  Indicators 


READY 


WAIT 


ERROR 

Badge  Reader 
Keyswitch 

MAINT 

NORMAL 

SLPVR 

Alarm 
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A-1 


A-1 
A-4 


4-digit  display  that  indicates  24-hour  time  in  hours  and  min- 
utes. Is  updated  periodically  by  a  host  computer  task.  Red 
characters  on  a  black  background. 

Guide  operator  in  use  of  badge. 

Indicates  that  terminal  is  ready  to  accept  a  badge  input. 
READY  will  go  off  when  badge  is  inserted. 

Prompts  next  badge  holder  not  to  insert  a  badge  until  pre- 
vious badge  data  has  been  processed.  When  WAIT  goes  off, 
READY  will  normally  go  on  next.  WAIT  does  not  go  on 
when  operator-generated  fault  condition  exists. 

Alerts  badge  holder  that  operator-generated  fault  condition 
exists  (i.e.,  badge  inserted  backwards,  upside  down,  or  not 
removed  smoothly)  and  that  badge  must  be  reinsi'ited. 

Reads  Type  5  badges  for  transmission  to  host  computer. 

Key-operated  switch.  Can  be  set  to  NORMAL.  MAINT.  or 
SUPVR.  Key  can  be  removed  from  the  NORMAL  position 
only. 

Switch  position  used  to  initiate  terminal  testing  via  on-board 
diagnostics  program. 

Switch  position  when  terminal  is  used  for  reading  employee 
badges. 

Switch  position  used  by  supervisory  personnel  to  enable  spe- 
cial user-defined  tasks. 

An  audible  signal  to  alert  the  operator. 
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Table  A-2    RT803  Controls  and  Indicators 


Control  or  indicator 


Fig. 
Ref 


Description 


Display 


Transaction  Key 

Transaction  Key 
Instruction  Insert 

Keypad  Switches 


1 

2 
3 
4 


A-2 


A-2 

A-2 
A-2 


32-character  alphanumeric  display.  Orange  characters  on  a 
black  back-ground.  Displays  24-hour  time  (in  hours  and  min- 
utes), operator-prompting  messages,  or  operator-generated 
data.  Data  is  usually  displayed  left  justified. 

White  key  used  by  operator  to  initiate  a  transaction. 


Space  intended  for  customer-written  usage  instructions. 

Twelve  non-illuminating,  blue  switches  used  by  operator  to 
enter  data  in  terminal.  Keypad  usage  is  indicated  on  display 
after  transaction  switch  is  pressed. 

Number  one 

Number  two 

Number  three 

Number  four 


5 

Number  five 

6 

Number  six 

7 

Number  seven 

8 

Number  eight 

9 

Number  nine 

0 

Number  zero 

• 

Decimal  point 

— 

Minus  sign 

Function  Keys 

A-2 

One  green  (SEND)  and  four  red  (RESET  ERROR,  ERASE 
CHAR.,  ERASE  ENTRY,  CANCEL)  keys  nsed  by  oper- 
ator to  input  data  to  the  terminal. 

SFND 

When  the  operator  has  made  an  entry  via  tiie  keypad,  press- 
ing the  green  SEND  key  will  complete  the  transaction  and 
send  the  data  to  th^  host  computer. 

RESET  ERROR 

Illuminates  red  to  indicate  a  host-task  detected  error.  RE- 
SET ERROR  will  go  off  when  RESET  ERROR  or  CAN- 
CEL is  pressed. 
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Table  A-2    RT803  Controls  and  Indicators  (Continued) 


Control  or  Indicator 


Fig. 
Ref 


Description 


ERASE  CHAR. 
ERASE  ENTRY 
CANCEL 


Lamp  Test  Switch 


Guidance  Indicator 
Lights- 

ENTRY  ACCEPT(ed) 


KEYBOARD 
READY 
WAIT 
ERROR 

— > 

BADGE 


A-2 


A-2 


Used  by  operator  to  erase  last  character  generated  via  key- 
pad. 

Used  by  operator  to  erase  entire  input  that  was  generated  via 
the  keypad. 

Used  to  cancel  transaction.  CANCEL  can  be  pressed  when 
the  operator  decides  to  cancel  the  complete  transaction. 
Pressing  CANCEL  returns  the  terminal  to  the  idle  mode 
with  time  being  displayed. 

CANCEL  will  reverse  the  card  reader  motor  and  is  used  to 
eject  jammed  cards. 

Black,  non-illuminating  switch  for  testing  indicators.  When 
pressed,  all  indicators  are  illuminated.  If  the  key  switch  is 
set  to  MAINT,  use  of  the  lamp  test  switch  will  revei  jc  the 
card  reader  motor  (used  to  eject  stuck  cards). 

Eight  illuminating  backlit  indicators  for  prompting  the  oper- 
ator in  use  of  the  terminal. 

ENTRY  ACCEPT(ed)  illuminates  white  to  inform  operator 
that  a  valid  data  entry  (i.e.,  card/badge,  keypad,  etc.)  was 
performed  by  the  operator.  This  indicator  is  under  host-task 
control. 

KEYBOARD  illuminates  white  to  prompt  the  operator  to 
enter  a  transaction  code  via  the  keypad. 

READY  illuminates  white  to  inform  the  operator  that  the 
terminal  is  ready  to  accept  his  input. 

WAIT  illuminates  white  to  inform  the  operator  to  wait  be- 
fore performing  a  data  entry. 

ERROR  illuminates  red  to  inform  the  operator  that  a  card 
or  badge  has  been  incorrectly  inserted,  or  that  the  host  task 
has  detected  an  error. 

Arrow  illuminates  white,  pointing  to  card/badge  reader  that 
the  operator  must  use  for  a  data  entry. 

Illuminates  white  to  prompt  the  operator  to  insert  a  Type  3 
badge  in  the  card/badge  reader. 
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Table  A-2     RT803  Controls  and  Indicators  (Continued) 


Control  or  Indicator 


Fig. 
Ref 


Description 


TICKET 

Illuminates  white  to  prompt  the  operator  to  insert  a  22-col- 
umn  ticket  or  stub  card  into  the  card/badge  reader. 

CARD 

Illuminates  white  to  prompt  the  operator  to  insert  an  80-col- 
umn  punched  card  into  the  card/badge  reader. 

Keyswitch 

A-4 

The  key-operated  switch  can  be  set  to  NORMAL,  MAINT, 
or  SUPVR.  Key  can  be  removed  from  the  NORMAL  posi- 
tion only. 

MAINT 

Switch  position  used  by  maintenance  personnel  to  initiate 
terminal  testing  via  on-board  diagnostics. 

NORMAL 

Switch  position  when  terminal  is  functioning  in  the  normal 
mode. 

SUPVR 

Switch  position  intended  for  use  by  supervisory  personnel  to 
initiate  special  user-defined  tasks. 

Alarm 

Audible  signal  used  to  alert  the  operator. 

A.  1.2     Power  ON /OFF  Procedure 

Since  there  is  no  POWER  ON/OFF  switch  on  the  RT801,  RT803,  and  RT805,  power  is  supplied  or 
removed  by  connecting  or  disconnecting  the  power  cable  lO  the  AC  power  source. 

A.  1.3    Typical  Operating  Procedures 

Operating  procedures  for  terminals  are  determined  by  the  specific  application  tasks  which  drive  those 
terminals.  Accordingly,  the  procedures  shown  on  the  following  pages  are  intended  only  as  illustrative 
examples. 
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OBSERVE    DISPLAY 


A.  IF  TIME  IS  DISPLAYED 
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Figure  A-5.    Typical  RT801  Operating  Procedure 
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(T)  OBSERVE  DISPLAY 

A.  IF  TIME  IS  DISPLAYED 
GO  TO  STEP@ 

B.  IF  TIME  IS  NOT  DISPLAYED 
CALL  SUPERVISOR 


ENTER  TRANSACTION 
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12-POSITION  KEYPAD. 
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ON  DISPLAY 


DEPRESS  [ERASE  CHAR 


TO  ERASE  LAST 
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DEPRESS  CANCEL  TO 
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Figure  A-6.    Typical  R1'803  Operating  Procedure 
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ngwr«  A-7.     Typical  RT805  Operatinx  Procedure 
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A.  1.4    Connecting  to  the  DECdataway 

An  RTHOx  terminal  can  be  connected  to  the  DECdataway  by  merely  attaching  the  DECdataway  con- 
nector while  terminal  power  is  off.  Since  the  terminal's  address  is  established  in  the  connector,  a  termi- 
nal can  be  replaced  without  opening  the  case  of  the  substituted  terminal. 

A  terminal  cin  be  removed  and  replaced  on-line  without  'ntcrfering  with  the  host's  capability  to  access 
other  terminals  on  that  same  DECdataway. 

A.  1.5     Running  On- Board  Diagnostics 

Each  RT80x  terminal  contains  an  on-board  self-test  procedure.  When  this  procedure  is  invoked  (by 
turning  on  power  and  by  turning  the  keyswitch  to  MAINT),  the  terminal  will  appear  inert  for  10-15 
seconds,  and  will  then  display  a  fixed  sequence  of  lights  and  numerals.  The  number  displayed  following 
a  '20'  identifies  the  type  of  terminal: 

01— this  is  an  RT801 
02— this  is  nn  RT803 
03— this  is  an  RT805 

The  number  displayed  following  an  '80'  is  the  DECdataway  address  of  this  terminal,  in  decimal  format. 


NOTE 

Specific  details  on  tlie  diagnostics  are  provided  in 
tlie  L'ser's  Guide  for  Remote  Terminals  RTSOI, 
RT803.  and  RT805. 


A.2    RT80X  FUNCTIONAL  SPECIFICATION 

This  section  describes  in  detail  how  RT80x  terminals  respond  to  commands  from  the  DPM  host. 

A  summary  of  terminal  commands  is  presented  in  Section  4.1.2.  Examples  of  how  to  send  commands 
and  data  to  RT80x  terminals,  and  how  to  interpret  response  data,  are  presented  in  Section  4.4. 

A.2.1     PCREQ  Validation 

Pre-execution  validation  consists  of  examining  PCJR  AN.  PCSTAT,  PCOLT,  and  PC  IN  for  illegal 
codes.  Any  illegal  code  will  cause  PCSTAT  to  be  returned  as  an  illegal  request.  For  any  combination  of 
legal  codes,  the  terminal  will  proceed  with  execution. 

Validation  is  not  comprehensive.  The  host  task  can  send  a  PCREQ  with  PCIN  =  N  to  a  terminal  which 
does  not  have  an  external  keyboard,  thereby  hanging  up  the  terminal  until  the  operator  can  els  the 
transaction. 

A.2.2     PCSTAT  Processing 

The  PCSTAT  byte  is  used  to  convey  four  separate  "commands",  each  in  a  1-bit  field  of  its  own: 

SND  ALM  (PCSTAT  bit  3)— Sound  the  audible  alarm 
RDR  ERR  (PCSTAT  bit  2)— Set  the  ERROR  light 
ENT  ACC  (PCSTAT  bit  I)— Set  the  ENTRY  ACCEPT  light 
FNC  ERR  (PCSTAT  bit  0)— Set  the  RESET  ERROR  light 

If  FNC  ERR,  light  the  RESET  ERROR  light  until  the  operator  pushes  the  RESET  ERROR  key.  In 
addition,  if  SND  ALM  is  set,  sound  the  alarm  until  the  RESET  ERROR  key  is  pushed  or  until  the 
alarm  has  been  on  for  about  two  seconds.  Note  that,  if  FNC  ERR,  the  terminal  will  execute  PCTRAN, 
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PCOUT,  and  PCSTAT  and  suspend  until  the  operator  pushes  RESET  ERROR  or  CANCEL;  after 
RESET  ERROR  is  pushed,  the  terminal  will  execute  PCIN.  Also  note  that  sending  FNC  ERR  to  an 
RT801  will  yield  a  response  of  "Illegal  Request". 

If  ENT  ACC,  light  the  ENTRY  ACCEPT  light  for  one  second. 

If  RDR  ERR,  light  the  ERROR  light  for  one  second.  In  addition,  if  SND  ALM  is  also  set,  sound  the 
alarm  while  ERROR  is  lit. 

If  SND  ALM,  sound  the  alarm  for  one  second. 

A.2.3     PCTRAN  Processing 

PCTRAN  is  used  on  an  RT805  to  indicate  which  transaction  is  in  progress,  and  on  an  RT803  to  in- 
dicate that  a  transaction  is  in  progress.  On  an  RT801,  PCTRAN  is  not  used. 

Terminals  process  PCTRAN  by  turning  off  all  transaction  lights  and  tur  ing  on  the  selected  light.  If 
PCTRAN  =  (s>  or  J,  all  transaction  lights  will  he  turned  off.  Note  that  fe  and  J  are  valid  for  all  termi- 
nals; A  to  H  are  valid  only  for  RT805s;  and  I  is  valid  only  for  RT803s. 

A.2.4     PCOUT  Processing  (Non-I/0) 

If  PCOUT  =  fe,  no  output  is  generated  and  the  display  is  released  and  blanked.  Releasing  the  display 
permits  subsequent  time  (broadcast)  messages  to  appear. 

If  PCOLT  =  A.  the  terminal  executes  its  power-up  restart.  This  forces  the  terminal  off-line  while  it  goes 
through  its  power-up  diagnostic  sequence.  Following  successful  completion  of  the  diagnostic  sequence, 
the  terminal  will  request  to  go  on-line. 

If  PCOUT  =  B,  the  display  is  blanked  and  the  first  32  bytes  of  data  following  the  PCREQ  are  displayed 
(left-justified).  If  more  than  32  bytes  are  sent,  they  are  ignored;  if  less  than  32  bytes  are  sent,  the  rest  of 
the  display  will  be  blank.  This  message  will  remain  on  display  (barring  time-out  or  loss  of  power)  until 
the  next  PCREQ  arrives  with  a  PCOUT  of  fe.  A,  B,  C,  D,  or  E. 

If  PCOUT  =  C,  the  message  is  displayed  as  in  PCOUT  =  B.  but  the  display  is  blanked  and  released 
immediately  after  PCREP  has  been  sent  back  to  the  host. 

If  PCOUT  =  F,  the  first  32  bytes  of  data  following  the  PCREQ  are  saved  in  a  time-out  message  buffer. 
When  an  RT805  or  RT803  enters  the  time-out  idle  state,  the  previous  display  contents  are  replaced  by 
this  time-out  message.  When  the  RT805  or  RT803  leaves  the  time-out  idle  state,  the  previous  display 
contents  are  restored  (if  the  display  was  in  use).  When  a  terminal  goes  on-line,  its  time-out  message  will 
be  blank  until  it  receives  a  PCREQ  with  PCOUT  =  F.  If  the  terminal  is  an  RT80I,  its  time-out  message 
will  always  be  blank  (PCOUT  =  F  will  be  ignored). 

If  PCOUT  =  G,  a  relay  is  energized.  The  primary  purpose  of  the  relay  is  to  unlock  doors  to  secure 
areas. 


• 


If  PCOUT  =  H,  a  relay  is  automatically  de-energized  when  the  DECdalaway  controller  is  initialized  or 
while  the  terminal  is  in  a  time-out  idle  state,  or  when  the  terminal  is  powered  down  or  in  the  mainte- 
nance mode. 

If  PCOUT=l  or  J,  the  message  following  the  PCREQ  is  transmitted  via  the  serial  line  interface  mod- 
ule to  the  attached  local  printer.  While  sending,  the  terminal  monitors  the  serial  line  interface  module 
for  receipt  of  XON  and  XOFF  characters.  The  terminal  supports  standard  temporary  print  suspension. 
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For  PCOUT=I  or  J,  the  data  string  is  interpreted  by  the  RT80x  terminal  in  FORTRAN  format. 
Namely,  the  first  byte  is  interpreted  as  a  carriage-control  byte,  as  follows: 


'  Line' 
'OLine' 
'ILine' 
'  +  Line' 
*$Line' 


<LF>Line<CR> 

<LF><LF>Line<CR> 

<FF>Line<CR> 

Line<CR> 

<LF>Line 


(Normal) 
(Double  Spacing) 
(Page  Eject) 
(Overprinting) 
(Prompting) 


If  the  first  byte  is  anything  other  than  0,  I,  +,  or  $,  it  will  be  treated  as  a  space,  and  will  perform 
normal  carriage  control:  line  feed  before  printing,  and  carriage  return  after  printing. 

If  PCOUT=K,  the  first  two  bytes  following  the  PCREQ  are  used  to  change  the  eight  bits  of  digital 
output  on  the  digital  I/O  module.  The  first  byte  corresponds  to  the  least  significant  four  bits  of  output, 
and  the  second  byte  to  the  most  significant  four  bits.  These  bytes  are  interpreted  as  ASCII  hexadecimal 
characters.  Any  character  other  than  0-9  or  A-F  is  treated  as  a  0.  A  0  causes  the  corresponding  four 
outputs  to  de-energize,  and  an  F  causes  all  four  outputs  to  energize.  All  outputs  are  electrically  latch- 
ing, solid-state,  non-isolated;  they  are  changed  only  by  PCOUT  =  K,  DECdataway  controller  in- 
itialization, power  loss,  or  by  the  operator  moving  the  key  to  the  maintenance  position.  Loss  of  line 
power  or  off-line  status  will  de-energize  digital  outputs.  Refer  to  the  RT80x  hardware  manual  for  more 
details. 


A.2.5     PCIN  Processing  (Non-I/0) 

If  PCIN=(a,  the  terminal  does  not  send  data  to  the  host. 

If  PCIN  =  A,  the  terminal  prepares  a  reply  including  two  bytes  of  data  which  define  the  configuration 
of  this  terminal.  The  first  byte  defines  the  type  of  terminal  (A-RT801,  B  =  RT803,  C  =  RT805;  other 
=  non-RT80x),  and  the  second  byte  defines  any  RT805  optional  modules  installed  in  the  terminal 
((a  =  none,  A  =  serial  module,  B  =  digital  I/O  module,  C  =  serial  module  plus  digital  I/O  module,  oth- 
er =  broken  terminal). 

If  PCIN  =  B,  the  terminal  prepares  a  reply  including  the  two  bytes  of  configuration  data  followed  by  up 
to  ten  bytes  of  diagnostic  information.  This  diagnostic  information  is  not  necessarily  in  ASCII  format. 

If  PCIN  =  C,  the  252  bytes  of  data  following  the  PCREQ  are  loaded  into  RAM  (random  access  memo- 
ry) and  then  executed  by  the  terminal  processor.  This  capability  is  intended  only  for  diagnostic  use. 

If  PCIN  =  E,  the  terminal  turns  on  Upper  Arrow  and  READY.  When  the  T5  badge  is  initially  inserted, 
READY  is  turned  off.  When  the  badge  is  fully  inserted,  the  terminal  sounds  the  alarm  for  0.1  second 
and  displays  the  following  message: 

PLEASE  REMOVE  BADGE 

While  the  badge  is  being  removed,  the  terminal  reads  it.  If  a  read  error  is  detected,  ERROR  lights  for 
0.5  second,  and  the  terminal  displays  the  following  message: 

READ  ERROR,  PLEASE  RE-INSERT  BADCE 
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After  the  badge  is  removed  following  a  read  error,  the  terminal  waits  for  re-insertion  (or  for  the  oper- 
ator to  CANCEL).  When  the  badge  is  re-inserted,  this  cycle  will  be  repeated. 

A  read  error  will  be  detected  if  the  badge  is  inserted  backwards  or  upside-down,  or  if  the  operator 
jiggles  the  badge  appreciably. 

If  no  read  error  is  detected,  WAIT  is  turned  on,  the  former  contents  of  the  display  are  restored,  and  a 
reply  message  is  prepared  which  consists  of  the  4-byte  PCREP  followed  by  10  bytes  of  ASCII  badge 
data,  most  significant  byte  first.  If  a  column  has  one  punch,  send  its  ASCII  code  (0-9);  if  no  punches, 
send  an  ASCII  0;  if  multiple  punches,  send  the  highest  punched  row. 

If  PCIN  =  D,  the  terminal  reads  the  T5  badge  as  in  PCIN  =  E,  except  that  the  display  is  neither  used 
nor  disturbed. 

If  PCIN  =  F,  the  terminal  turns  on  Lower  Arrow,  READY,  and  CARD;  reads  an  80-column  punched 
card;  and  prepares  a  reply  including  80  bytes  of  data  (same  as  badge  reader,  just  more  data). 

(PCIN  =  G  is  reserved.) 

If  PCIN  =  H,  the  terminal  turns  on  Lower  Arrow,  READY,  and  BADGE;  reads  a  22-column  badge; 
and  prepares  a  reply,  including  22  bytes  of  data. 

If  PCIN  =  i,  the  terminal  turns  on  Lower  Arrow,  READY,  and  TICKET;  reads  a  22-column  punched 
card  or  ticket;  and  prepares  a  reply,  including  22  bytes  of  data. 

If  PCIN  =  F,G,H,  or  I,  the  acceptable  set  of  Hollerith  characters  is  as  defined  in  Section  A. 2. 8.  Any 
other  combination  of  punches  constitutes  a  reader  error,  which  is  handled  by  the  terminal  in  a  fashion 
similar  to  that  for  PCIN  =  D.  Note  that  the  byte  from  column  1  is  sent  first. 

If  PCIN=J,  the  terminal  waits  for  the  operator  to  push  a  transaction  key  and  then  prepares  a  reply 
message  consisting  of  only  the  PCREP: 

Means  That: 

This  RT803  operator  pushed  the  transaction  key 

This  RT805  operator  pushed  transaction  key  No.8 

This  RT805  operator  pushed  transaction  key  No.  1 

See  Section  A. 2. 7  for  notes  on  effects  of  the  keyswitch. 

If  PCIN  =  K,  the  terminal  reads  the  24  bits  of  input  from  the  digital  I/O  module  and  prepares  a  reply 
including  6  bytes  of  data.  The  first  byte  corresponds  to  the  four  least  significant  bits  of  input.  These 
bytes  are  encoded  as  ASCII  hexadecimal  characters  (0-9,  A~F).  An  F  means  that  all  four  inputs  in  a 
byte  were  energized;  a  0  means  all  were  de-energized.  (Refer  to  the  RT80x  hardware  manual  for  more 
details.) 


PREQ= 

PCREP = 

Jfefefe 

J^I® 

J(g^^(g> 

J@H® 

J(5j@@ 

J@A@ 
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A.2.6     PCOUT/PCIN  Processing  (I/O  Only) 

RT80x  terminals  respond  to  five  I/O  commands.  Four  involve  the  display;  the  fifth  involves  the  exter- 
nal device  (e.g.,  keyboard  or  printer). 

A.2.6. 1     Display  I/O  Processing 

There  are  two  display  formats,  specified  by  PCOUT  =  D  or  E;  and  two  input  devices,  specified  by 
PCIN  =  M  or  N.  For  all  four  display  I/O  commands,  the  RTSOx.  terminal  responds  as  follows: 

1.  Clears  the  display  to  blanks,  and  marks  it  as  i.^  use. 

2.  Displays  the  ASCII  data  string  which  followed  the  PCREQ  (left  justified). 

3.  Turns  on  KEYBOARD. 


4.  Enters  the  local  edit  mode  until  the  operator  pushes  the  SEND  (if  PCIN  =  M),  RETURN  (if 
PCIN  =  N).or  CANCEL  key.  In  local  edit  mode,  data  is  accepted  from  the  selected  input 
device  (keypad  if  PCIN-M,  or  external  keyboard  if  PCIN  =  N)  and  the  ERASE  CHAR 
and  ERASE  ENTRY  keys  are  enabled  if  PCIN-M. 

5.  When  SEND  (or  RETURN)  is  pushed,  prepares  a  repi^  message  consisting  of  PCREP  fol- 
lowed by  up  to  32  data  bytes  corresponding  to  the  ASCII  string  which  the  operator  entered. 

6.  Turns  off  KEYBOARD. 


Both  display  formats  consist  of  partially  protected  displays  and  are  intended  for  fill-in-the-blank  replies 
from  the  operator.  The  formats  are  defined  as  follows: 

If  PCOUT  =  D,  the  protected  field  is  the  N-character  siring  sent  by  the  host,  tuid  the  unprotected 
field  comprises  the  remaining  (32-N)  character  positions  in  the  display. 

If  PCOUT  =  fc„  the  unprotected  field  consists  of  all  question  marks,  and  all  other  character  posi- 
tions are  protected. 

If  input  is  from  the  keypad,  only  the  following  12  characters  are  used:  1234567890.-.  If  input  is  from 
the  external  keyboard,  ASCII  characters  whose  octal  representation  is  outside  the  range  04f)-174  will 
be  ignored  by  the  terminal  (they  will  neither  Ic  displayed  nor  sent  to  the  host),  except  for  <CR> 
(carriage  return)  which  is  equivalent  to  the  SEND  key,  and  <RO>  (rub-out  or  delete)  which  is  equiv- 
alent to  the  ERASE  CHAR  key. 

If  input  is  from  the  external  keyboard  device,  lower-case  characters  should  not  be  entered,  because  they 
will  not  be  correctly  displayed  on  the  RT805.  If  the  device  is  an  LA36,  the  CAPS  LOCK  key  should  be 
used.  If  the  device  is  an  LK40,  its  internal  switch  should  be  set  to  the  64-character  position. 

A.2.6.2     External  Device  I/O  Processing 

If  PCOUT  =  J  and  PCIN  =  N,  the  message  following  the  PCREQ  will  be  transmitted  via  the  serial  line 
interface  module  to  the  attached  printer  (same  as  PCOUT=H),  After  this  message  is  printed,  the  ter- 
minal will  monitor  the  external  keyboard  for  <CR>,<RO>,  and  data  characters  in  the  octal  range 
of  040-174.  Data  characters  are  added  to  the  initially-null  input  message  and  are  echoed  to  the  printer; 
<R0>  deletes  a  character  from  the  input  message  and  echoes  the  deleted  character  on  the  printer; 
and  <CR>  sends  the  input  message  to  the  host  and  echoes  on  the  printer  as  a  <CR>.  Characters 
other  than  <CR>,<RO>,  and  data  characters  in  the  range  of  040-174  arc  ignored. 
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A.2.7    Terminal  Keyswitch,  Programming  Notes 

Each  RT80x  terminal  has  a  3-position  keyswitch  whose  positions  are  referred  to  as  Normal  (NOR- 
MAL), Maintenance  (MAINT),  and  Supervisory  (SUPVR).  Unless  otherwise  stated,  this  manual  de- 
scribes the  performance  of  the  terminal  while  the  keyswitch  is  in  the  Normal  position. 

If  the  terminal  is  powered  up  (or  recovers  from  a  transient  power  outage)  while  the  keyswitch  is  in  the 
Normal  position,  the  terminal  will  run  its  on-board  diagnostics  and  then  be  automatically  restored  to  a 
usable  (on-line)  mode.  If  the  terminal  is  powered  up  while  the  keyswitch  is  in  the  Maintenance  or  Su- 
pervisory position,  it  will  run  its  on-board  diagnostics,  and  manual  intervention  is  required  to  put  the 
terminal  back  on-line. 

If  the  terminal  is  on-line  and  the  keyswitch  is  moved  into  the  Maintenance  position  momentarily  and 
then  moved  back  into  the  Normal  position,  the  terminal  will  run  its  on-board  diagnostics  once,  and  then 
will  be  automatically  restored  to  a  usable  (on-line)  mode,  assuming  that  the  host  hardware  and  software 
are  functional. 

If  the  terminal  is  on-line  and  the  keyswitch  is  moved  into  the  Maintenance  position  and  left  there  for 
more  than  a  few  seconds,  the  terminal  will  run  its  diagnostics  until  the  operator  manually  intervenes. 
Moving  an  on-line  terminal's  keyswitch  to  Maintenance  will  cause  any  pending  I/O  to  that  terminal 
(and  any  subsequent  I/O  to  that  terminal)  to  complete  with  an  error  return. 

If  the  terminal  is  on-line  and  there  is  a  transaction  pending  against  the  terminal  when  its  operator 
moves  the  keyswitch  into  the  Supervisory  position,  that  transaction  will  be  immediately  cancelled. 

If  the  terminal  is  on-line  and  the  keyswitch  is  in  the  Supervisory  position  when  the  host  sends  a  request 
to  read  a  transaction  key,  the  terminal  will  immediately  reply  with  the  key-code  of  the  Supervisory 
position. 

If  the  terminal  is  on-line  and  the  keyswitch  is  in  the  Supervisory  position  when  the  host  sends  a  request 
other  than  "read  a  transaction  key",  the  terminal  will  execute  the  request  normally,  but  the  reply  will 
contain  a  bit  to  indicate  the  Supervisory  position  of  the  keyswitch. 

The  effect  of  the  Supervisory  position  of  the  keyswitch  is: 

•  When  PCREQ  =  J@@@  (FDREAD  TK'),  if  PCREP  =  J(g.A(n,  it  means  that  the  operator 
pushed  transaction  key  AWS  1 . 

•  When  PCREQ  =  J@@@  (FDREAD  TK'),  if  PCREP-JfeJfe,  it  means  that  the  keyswitch 
was  in  the  Supervisory  position  before  the  terminal  received  PCREQ. 

•  When  PCREQ  =  J@@@  (FDREAD  TK'),  if  PCREP  =  J(g.xJ,  it  means  that  the  keyswitch 
was  moved  to  the  Supervisory  position  after  the  terminal  received  PCREQ;  the  'x'  is  irrele- 
vant. 

•  When  PCREQ  =  J@@^  (FDREAD  TK'),  if  PCREP  =  J(nxB,  it  means  thai  the  operator 
pushed  the  CANCEL  key  after  the  terminal  received  PCREQ:  the  'x'  is  irrelevant. 

•  When  PCREQ- D@@@  (FDREAD  T5'),  if  PCREP=D@@(s>,  it  means  that  the  keyswitch 
remained  in  the  Normal  position. 

•  When  PCREQ  =  D@@@  (FDREAD  T5'),  if  PCREP=D(aJ(s,  it  means  that  the  key.switch 
was  in  the  Supervisory  position  before  the  terminal  received  PCREQ. 
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When  PCREQ  =  Dfefefe  (FDREAD  *T5'),  if  PCREP=DCflxJ,  it  means  that  the  keyswiich 
was  moved  to  the  Supervisory  position  after  the  terminal  recciNed  PCREQ;  the  'x*  is  irrele- 
vant. 


•      When  PCREQ=Dfe^fe  (FDREAD  T5').  if  PCREP=DC«xB,  it  means  that  the  operator 
pushed  the  CANCEL  key  after  the  terminal  received  PCREQ;  the  'x*  is  irrelevant. 

A.2.8    Terminal  Character  Sets 

A.2.8.1     Display  Character  Set 

The  graphics  which  can  be  displayed  on  RT805  and  RT803  terminals  are: 


Code 


Character 

Code 

Character 

dA^ 

SP 

( space) 

100 

P 

041 

I 

101 

A 

042 

H 

(quotes) 

102 

B 

043 

103 

r 

04^ 

s 

104 

D 

045 

% 

E 

04^^ 

(, 

(ampersand ) 

F 

047 

1 

(  a  po  s  t  r  o  ph  e ) 

G 

050 

( 

H 

051 

) 

I 

052 

* 

.7 

053 

■f 

K 

054 

r 

( comma) 

L 

055 

- 

M 

056 

• 

N 

057 

/ 

0 

060 

0 

P 

061 

1 

0 

062 

2 

R 

063 

3 

S 

064 

4 

T 

065 

5 

U 

066 

6 

V 

067 

7 

w 

070 

8 

X 

071 

9 

Y 

07  2 

: 

z 

073 

# 

f 

074 

< 

-  (tilde) 

075 

= 

1 

076 

> 

{ 

077 

•J 

• 

) 

This  display  character  set  is  the  primary  graphic  subset  of  ASCII,  except  fcr  the  tilde,  left  brace,  and 
right  brace. 

A.2.8.2     llollerith-to-ASCIl  Conversion 

Holleri(h-lo-ASCII  conversion  is  done  in  conformance  with  DEC029  code,  as  defined  in  the  RSX-ll M/ 
M-Pl.i'S  I/O  Drivers  Reference  Manual.  The  64-characler  primary  graphic  subset  of  ASCII  is  accept- 
ed; any  card/badge  column  which  docs  not  map  into  this  ASCII  subset  is  treated  by  the  RT80x  termi- 
nal as  a  read  error  and  is  handled  locally. 
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APPENDIX  B 


DPMOl/VTllO  TERMINAL  MULTIPLEXERS 


This  appendix  describes  the  physical  characteristics  of  the  DECdataway  leririnc!  multiplexers.  System 
configurations,  PCB  commands,  attributes,  and  self-test  features  are  covered.  A  detailed  description  of 
the  DPMOl  attribute  file  builder  (ATGEN)  is  contained  in  the  DPM/DPM-PLUS  System  Generation 
and  Management  Guide. 

B.1     DESCRIPTION  OF  DPMOl 

The  DPMOl  terminal  multiplexer  has  four  logically  and  physically  separate  ports  for  connecting  asyn- 
chronous EIA  and  20ma  active  or  passive  current-loop  devices  to  the  DECdataway. 

The  DPMOl  is  a  remote  electrical  interface  as  well  as  a  data  preprocessor  for  asynchronous  conversa- 
tional terminals  such  as  VT52s  and  LA36s. 


Electrically,  the  DPMOl  allows  host-to-remote  terminal  links  without  modems,  and  the  availability  of 
EIA,  20ma  active,  and  20ma  passive  signals  on  a  single  connector. 

As  a  data  preprocessor,  the  DPMOl  off-loads  the  host  by  eliminating  character  interrupts  and  by  per- 
forming some  of  the  functions  normally  accomplished  by  the  terminal  driver. 

A  wide  range  of  devices  can  be  attached  to  the  DPMOl,  since  each  port  is  dynamically  configured 
through  a  set  of  attributes  which  is  down-line  loaded  by  the  host  whenever  a  port  comes  on-line. 

The  DPMOl  has  its  own  resident  diagnostics  package  which  may  be  executed  independent  of  the  sys- 
tem, and  incorporates  features  that  allow  off-line  testing  of  both  terminals  and  cables.  A  DPMOl  that 
fails  these  tests  can  be  replaced  without  disturbing  the  rest  of  the  system. 
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B.2    DPMOl  OPERATOR'S  GUIDE 

B.2.1     Physical  Description 

There  are  five  LED  indicators  on  the  front  panel  which  show  the  state  of  the  power  supply  and  the  four 
terminal  ports.  A  3-position  keyswitch  is  on  the  lower  right  side.  (See  Figure  B-1.) 


Figure  B-1.     DPMOl  Terminal  Multiplexer 
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The  back  panel  of  the  DPMOl  contains  five  16-pin  CPC  female  connectors,  labeled  PORT  0,  PORT  1, 
PORT  2,  PORT  3,  and  DATA  WAY.  The  16-pin  connectors  for  each  port  allow  the  user  to  select  the 
mode  of  operation  for  each  port:  20  ma  active,  20  ma  passive,  or  EIA.  The  DATAWAY  connector 
provides  (as  is  standard  on  DPM  terminals)  the  DECdataway  address  as  well  as  the  connection  to  the 
DECdataway. 

B.2.2    Controls  and  Indicators 

Controls  and  indicators  on  a  DPMOl  multiplexer  are  described  in  Table  B-1  aid  illustrated  in  Figure  B- 
1 .  The  keyswitch  is  physically  the  same  as  the  one  on  the  RT8XX  terminals. 

Table  B-1     DPMOl  Indicators 


Indicators 


Fig. 
Ref. 


Description 


POWER  Indicator 
(Red  LED) 


PORT  READY  Indicators 
(Red  LEDs) 
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Power  on-off  indicator.  Lights  only  when  power  is  applied  to 
the  DPMOl  multiplexer.  Has  no  relation  to  power  application 
to  DPMOl  terminals. 


There  are  four  LEDs,  one  for  each  multiplexer  port.  Each 
LED  can  have  four  different  states: 


Off 


Off/ Blinking 
On  Slowly 


On/Blinking 
Off  Slowly 


On 


Port  not  on-line  or  initialized.  If  this  occurs 
at  power-up,  after  completion  of  the  start-up 
diagnostics,  the  port  has  failed  a  diagnostic 
and  will  not  go  on-line. 


Port  has  been  initialized,  but  has  not  been 
brought  on-line  by  the  DECdataway.  This 
can  occur  if  the  DECdataway  connector  is 
not  plugged  in  or  has  been  set  to  a  non-exist- 
ent address 


Port  is  on-line  and  idle,  awaiting  the  start  of 
a  new  re:  d  or  write  transaction. 

Port  is  on-line  and  active.  There  is  a  read  or 
write  taking  place  on  this  port. 


At  power-up  or  while  in  the  maintenance  mode,  these  indicators  have  other  meanings. 
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B.2.3     DECdataway  Configuration 

Each  DPMOl  requires  four  contiguous  DECdataway  addresses,  one  for  each  port.  The  base  address 
(PORT  0  address)  of  the  multiplexer  ranges  from  1  to  60  (decimal).  If  the  connector  is  wired  outside 
this  range,  the  results  are  unpredictable.  The  DPMOl  does  not  require  or  respond  to  activity  on  the 
broadcast  channel  (0). 

When  the  DPMOl  host  software  is  generated,  the  addresses  of  all  DPMOl  multiplexers  must  be  speci- 
fied. The  generation  procedure  checks  all  DECdataway  address  assignments  for  consistency.  Device 
address  assignments  can  be  changed  by  using  the  configuration  utility  CBC  described  in  the  DPM/ 
DPM-PLVS  System  Generation  and  Management  Guide. 

Correct  address  assignment  is  necessary  for  proper  operation  of  the  on-line  task  (ISBONL)  which  loads 
each  DPMOl  port  with  its  required  attributes  during  an  on-line  transition.  Sec  Section  B.4  for  a  dis- 
cussion of  attributes. 

B.3     PCB  COMMANDS 

B.3.1     Introduction 

A  summary  of  multiplexer  commands  appears  in  Section  4.1.2.  Details  of  each  command  are  provided 
in  the  following  paragraphs. 

B.3.2     PCIN  (Read)  Peripheral  Control  Byte 

There  are  nine  read  commands: 

%       Null  read.  There  is  no  read  action  taken  with  this  command.  The  transaction  is  complete. 

A  Return  configuration.  There  are  two  bytes  oi  data  in  the  return  following  the  PCBs.  The  first 
is  a  'D'  indicating  a  DPMOl  is  responding-  the  second  is  an  ASCII  number  *X'  from  0 
through  3  indicating  the  relative  port  number  .  ithin  the  DPMOl. 


B       Return  diagnostic  information.  The  data  return  is  in  the  form: 

D  X  ##########  N  SF  BL  Tl  T2  Ul  L'2  ATT 
Where:  D  and  X  are  the  same  as  described  for  command  .\. 


mmuH 


N 


SF 


are  ten  bytes  of  diagnostic  data  which  are  the  numbers  of  up 
to  5  startup  tests  that  failed. 

summarizes  the  results  of  the  diagnostics  where  each  of  the 
low-order  four  bits  corresponds  to  a  respective  DPMOl  port. 
Any  of  these  bits  returned  as  a  binary  1  indicates  that  that 
port  has  failed  a  power-up  test  and  is  inactive. 

is  a  100  (octal)  if  the  kevsw itch  is  in  NORM. A L.  and  101  (oc- 
tal) if  it  is  in  SUPVR.  ' 
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The  remaining  six  bytes  describe  the  attributes  of  the  port  (see  Section  B.4). 


BL 
T1,T2 

U1,U2 
ATT 


Buffer  length,  in  bytes 
Two  termination  characters 
UART  attributes 
Attribute  byte 


R       Formatted  read/no  echo.  As  with  command  S,  except  characters  are  not  echoed. 

S  Formatted  read.  The  legal  character  set  is  40  (octal)  through  176  (octal)  plus  tab,  carriage 
return,  line  feed,  and  any  other  terminating  character(s).  The  most  significant  bit  is  stripped 
from  each  byte.  Delete  (177)  is  supported  (see  Section  B.4. 2,  Delete  notes).  All  legal  input 
characters  are  echoed  (unless  the  no  echo  attribute  is  set).  All  terminating  characters  cause  a 
carriage  return  to  be  echoed  to  the  input  device. 

T      Read  transparent.  As  with  command  U,  except  no  echo. 

U  Read  transparent  with  echo.  Reads  all  binary  data  from  0  through  377  (octal).  End-of-buffer 
and  port  error  are  the  only  termination  conditions. 


V      Read  translucent  [transparent  with  terminator(s)].  Same  as  command  W,  except  no  echo. 

W  Read  translucent  [transparent  with  echo  and  terminator(s)].  Same  as  command  U,  except 
that  termination  characters  will  cause  termination  of  transaction  in  addition  to  end  of  buffer 
and  port  error.  Termination  characters  are  compared  with  the  lower  seven  bits  only. 

B.3.3     PCOUT  (Write)  Peripheral  Control  Byte 

NOTE 

Writing  more  than  137.  characters  (4  PCBs  and 
133.  data  characters)  will  cause  a  device  to  go  off- 
line (IE.DNR). 

There  are  four  write  commands: 

fe      Null.  No  action. 

A  Pjserved  diagnostic  command.  This  command  causes  the  DPMOl  to  restart  and  execute 
start-up  diagnostics.  All  on-line  ports  of  this  DPMOl  will  go  off-line  for  about  10  seconds. 


B-5 


Formatted  write.  The  entire  ASCII  set  from  0  through  377  (octal)  is  passed.  The  first  data 
character  following  the  PCB  commands  is  taken  as  a  vertical  form  feed  character. 

Action 

LFdataCR 

LP  LF  data  CR 

FFdataCR 

data  CR 

LFdata 

data 

LFdataCR 


VFC  Character 

SP 

040  octal 

0 

060  octal 

1 

061  octal 

+ 

053  octal 

$ 

044  octal 

null 

000  octal 

any  other 

Where: 

CR  is  carriage  return 

FF  is  form  feed 

LF  is  line  feed 

Data  is  the  message  to  be  written. 


During  this  write,  the  cursor  position  (for  CRT  delete)  is  calculated  for  the  character  set 
described  in  Section  B.4. 1  plus  BS  (back  space).  Any  other  character  does  not  affect  the 
cursor  history.  See  Sections  B.4.1  and  B.4.2  for  delete  and  cursor  control  information. 

Transparent  write.  Pass  all  binary  data  from  0  through  377  (octal).  Cursor  position  is  not 
calculated. 


B.3.4     PCTRAN  (Transaction)  Peripheral  Control  Byte 

There  are  two  transaction  PCBs: 

(g*      Null.  No  action. 

L  Load  new  attributes.  These  attributes  are  more  completely  described  in  Section  B.4.  The  at- 
tributes are:  BL,  Tl,  T2,  Ul,  U2,  and  ATT.  Error  checking  for  excessive  or  null  buffer 
length  is  made;  errors  result  in  ignoring  the  entire  attribute  message.  Termination  characters 
must  be  in  the  »i.  :ge  of  1  through  177  (octal).  It  is  strongly  suggested  that  the  user  rely  upon 
ISBONL  to  load  DPMOl  attributes.  Any  user-loaded  attributes  will  be  lost  in  an  on-line  tran- 
sition. 


d3.S     PCSTAT  (Status)  Peripheral  Control  Byte 

Status  PCB  commands  are  as  follows: 


^ 

Null  when  sent  from  host  to  DPMOl.  End  of  buffer  termination  status  return  from  DPMOl. 

A 

Illegal  request  status  return  (illegal  PCB). 

F 

Framing  error  in  UART. 

O 

Overflow  error  in  UART. 

P      Parity  error  in  UART. 
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W      User-loaded  terminating  character  which  is  not  carriage  return  or  CTRl./Z.  This  character 
is  passed  back  in  the  transaction  byte. 

X      Carriage-return  termination. 

Z       CTRL/Z  termination. 

B.4    ATTRIBUTES 

To  configure  a  port  on  a  DPMOI  '  r  a  specific  terminal  type,  the  port  connecter  is  wired  appropriately. 
The  address  of  the  terminal  is  determined  and  a  down-line-loadable  attribute  file  is  built  at  the  host, 
with  the  characteristics  for  the  terminal.  The  port  connecter  may  be  wired  for  El  A,  20ma  (DPMOI) 
active,  or  20ma  (DPMOI)  passive. 

A  utility  program  called  ATGEN  is  supplied  with  each  DPM  system  to  provide  an  orderly  method  of 
creating  and  modifying  the  attribute  file.  Through  ATGEN,  the  following  characteristics  may  be  se- 
lected: 


Character  length 

Number  of  stop  bits 

Input  buffer  length 

Input  terminating  character  No.  1 

Input  terminating  character  No.  2 

Echo  input  characters 

CRT  terminal 

Baud  rate 

Recognize  XON/XOFF 

Parity 


5-8  bits 

1-2 

1-133. 

1-177  (octal) 

1-177  (octal) 

yes,no 

yes,  no 

50-9600. 

yes,no 

odd,even,none 


Options  available  through  the  attribute  file  are  intended  to  define  the  characteristics  of  the  device  on  a 
port.  They  are  down-line  loaded  when  a  port  comes  on-line  or.  under  DPM-PLUS,  through  the  ptility 
rout  me  LAT  ATGEN  and  LAT  are  fully  described  in  the  DPM/DPM-PLiS  System  Generation  and 
M  jnagement  Guide. 

Six  bytes  describe  the  attributes  of  any  port  on  a  DPMO 1 .  They  are,  in  the  order  in  which  they  are  sent: 

BLT!  T2  Ul  U2  ATT 


Where: 


BL 


Tl 


is  the  specified  input  buffer  length.  This  must  be  greater  than  0  and  less  than  or  equal  to  1 33 
(decimal)  bytes.  This  does  not  affect  the  maximum  length  of  a  'write'  message  (up  to  133 
bytes).  This  ir  sent  as  a  binary  number. 

is  the  first  terminating  character.  Any  7-bit  .ASCII  character  is  legal  (except  000).  Termi- 
nation occurs  when  the  !ow-ordcr  7  bits  of  an  input  character  match  those  of  Tl. 


T2      is  the  second  tcrminatmg  character. 


0-7 


Ul      describes  UART  attributes.  The  format  of  this  byte  is: 
Bit(s)  Attribute  if  Set 


1,0  (LSB) 


3,2 


5 
6 
7 


00  =  odd  parity 

01  =  no  parity 

10  =  even  parity 

1 1  =  no  parity 
Character  length: 

00  =  5  bits 

01  =  6  bits 
10-7  bits 
11=8  bits 

When  character  length  is  6.  7,  or  8  bits,  a  "1"  will  add  two  s  )p 
bits  to  the  character.  When  character  length  is  5  bits,  a  "1"  ^    II 
add  1.5  stop  bits.  When  bit  4  is  a  "0",  one  stop  bit  will  be  adde- 
Always  0 
Always  1 
Always  0 


U2     defines  the  UART  baud  rate  for  both  sending  and  receiving: 
Octal  Baud  Rate 


100 
101 
102 
103 
1^4 
105 
106 
107 
110 
III 
112 
113 
114 
115 
116 
117 


50 

75 
110 

n4.5 
IJ 

itX) 

6\^ 

1200 

1800 

2000 

2400 

3600 

4800 

7200 

9600 

Invalid 


ATT  defines  the  port  attributes.  The  format  of  this  byte  is  as  follows: 
Bit  Attribute  if  Set 


0 (LSB) 

1 

2 

3 

4 

5 

6 

7 


CRT  delete  enabled 

Priority  device  (XON/XOFF  enabled) 

No  echo  attribute  enabled  (overrides  a  PCS) 

Reserved 

Always  0 

Always  0 

Always  1 

Always  0 
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B.4.1     CRT  Attribute 

Setting  the  CRT  attribute  has  a  number  of  implications.  The  DPMOl  keeps  a  running  history  of  the 
horizontal  position  of  the  cursor  in  the  formatted  write  and  formatted  read  modes.  Use  of  escape  se- 
quences is  not  supported  although  they  will  be  passed  through  in  transparent  mode.  The  DPMOl  as- 
sumes an  80-character  disp'  y  on  a  CRT  and  will  generate  a  carriage  return/line  feed  when  the  eighty- 
first  character  is  entered.  .  iiis  is  for  display  purposes  only.  Characters  on  a  previous  line  may  not  be 
deleted  because  the  processing  works  only  one  line  at  a  time.  Within  this  constraint,  CRT  delete  is  fully 
supported  for  tab,  line  feed  (no  action),  and  the  character  set  from  40  through  176  (octal).  Tab  stops 
are  assumed  at  8-character  intervals.  An  attempt  to  tab  to  position  80  will  result  in  an  auto  line  feed. 
Multiple  auto  line  feeds  can  be  generated  in  a  single  input  string. 

B.4.2     Delete 

The  DPMOl  supports  the  delete  key  in  the  formatted  read  (S  and  T)  modes.  CRT  delete  is  supported  as 
described  in  Section  B.4.1;  hard  copy  delete  is  supported  by  echoing  back  the  character  deleted  from 
the  input  buffer.  There  is  no  maximum  line  size,  and  thus  no  auto  line  feed.  Any  character  that  is  legal 
to  read  can  be  deleted.  Attempts  to  delete  back  past  the  beginning  of  the  input  buffer  or  the  start  of  the 
current  line  will  ring  the  bell  in  the  terminal.  Because  direct  cursor  control  escape  sequences  are  not 
standard  throughout  the  industry,  the  DPMOl  does  not  necessarily  calculate  the  correct  cursor  position 
for  these  sequences.  CRT  delete  of  tab  characters  may  not  necessarily  appear  correct  on  the  CRT  with 
escape  sequences  in  the  write  text  string. 


B.4.3    No  Echo  Attribute 

The  'no  echo'  attribute  overrides  any  input  PCB  command  requiring  echo. 

B.4.4     Priority  Device 

A  priority  device  is  one  for  which  XON  and  XOFF  (CTRL/Q  and  CTRL/S)  are  supported  by  the 
DPMOl.  These  commands  can  be  used  to  temporarily  suspend  and  resume  output  from  the  DPMOl. 
Th'.s  action  occurs  within  one  character  time  at  any  baud  rate.  Note  vhat  the  DPMOl  cannot  originate 
the»e  commands;  i.e.,  temporarily  suspend  input  from  a  terminal.  These  commands  are  inactive  on  in- 
put from  a  terminal. 

B.5     DIAGNOSTICS  MODE 

Whenever  the  unit  is  powered-up  or  the  keyswitch  is  turned  to  the  Maintenance  position,  the  DPMOl 
will  enter  the  diagnostics  mode.  In  this  mode,  the  functions  of  the  microprocessor  board,  DECdataway 
communications  board,  and  terminal  interface  board  are  checked.  If  the  key  is  left  in  the  Maintenance 
position,  the  DPMOl  will  continuously  cycle  through  diagnostics  as  long  as  no  errors  are  detected.  If  an 
error  is  detected,  the  unit  will  halt  or  exit  to  the  normal  mode,  depending  on  the  type  of  error. 

B.5.1     Normal  Mode 

Turning  the  keyswitch  to  the  NORMAL  position  (while  in  any  other  mode)  allows  the  DPMOl  to  enter 
normal  mode.  In  normal  mode,  the  ports  attempt  to  come  on  line,  if  the  diagnostics  detected  a  failure  in 
the  terminal  interface  hardware,  the  affected  ports  will  not  come  on  line. 

B.5.2    Supervisory  Mode  No.  1 

Turning  the  keyswitch  to  the  SUPVR  position  while  the  DPMOl  is  in  the  diagnostics  mode  allows  the 
unit  to  enter  Supervisory  mode  No.  1.  In  this  mode,  only  port  0  will  come  on  line,  and  it  will  come  on 
line  regardless  of  any  terminal  interface  hardware  failures. 

When  the  DPMOl  enters  this  mode,  it  will  output  a  message  containing  the  DECdataway  address  of 
port  0  to  a  terminal  attached  to  port  1 .  The  terminal  must  recognize  8-bit  characters  with  no  parity  at 
300  baud  to  print  this  message. 
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B.5.3    Supervisory  Mode  No.  2 

Turning  the  keyswitch  to  the  Supervisory  position  while  the  unit  is  in  normal  mode  drops  the  DPMOl 
off-line  and  forces  a  formatted  'read  with  echo'  on  all  ports  (delete  is  ignored).  This  provides  an  off-line 
test  capability  for  terminals  and  cabling. 

In  Supervisory  mode  No.  2,  the  port  ready  LEDs  will  be  de-energized  if  the  port  failed  diagnostics,  or 
energized  indicating  that  echoing  will  occur.  No  ports  will  go  on  line. 

B.6    VTl  10  TERMINAL 

Physically,  a  VTl  10  is  a  VTIOO  keyboard/CRT  terminal  with  a  built-in  DPMOl.  Functionally,  a 
VTl  10  acts  as  a  DPMOl  with  a  VTIOO  terminal  connected  to  or    of  its  four  ports. 

B.7    VTIOO/ VTl  10  SETUP  NOTES 

When  using  the  SETUP  mode  on  a  VTIOO  or  VTl  10,  the  following  points  should  be  observed  for  com- 
patibility with  the  DPMOl: 

1 .  The  DPMOl  does  not  support  split-speeds.  Any  baud  rate  may  be  used  up  to  2400.  as  long  as 
transmit  speed  and  receive  speed  match  the  DPMOl  speed.  The  aggregate  speed  for  all  ter- 
minals must  not  exceed  9600. 

2.  The  number  of  bits  per  character  and  parity  selection  must  match  the  DPMOl. 

3.  If  smooth  scrolling  is  enabled  or  if  XON-XOFF  is  enabled,  the  DPMOl  must  have  the  Prior- 
ity Device  attribute. 

4  It  is  recommended  that  the  DPMOl  support  the  VTIOO  as  a  CRT,  for  the  reasons  discussed 
in  Sections  B.4.1  and  B.4.2.  The  CRT  attribute  imposes  the  following  additional  restrictions 
on  the  VTIOO  SETUP  mode: 

•  Line-feed  mode  must  be  0 

•  Autowrap  mode  must  be  0 

•  The  number  of  columns  per  line  must  be  80 

•  Tab  stops  must  be  standard  (9,17,25,33.41,49,57,65,  and  73). 
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APPENDIX  C 
THE  DYTOl  TERMINAL  INTERFACE 


This  appendix  describes  the  DYTOl  Terminal  Interface,  its  addressing,  diagnostics,  and  the  Peripheral 
Control  Bytes  that  control  its  activity. 

For  more  information,  please  see  the  following: 

•  Chapter  6  of  the  DPM/DPM-Plus  System  Generation  and  Management  Guide  contains  a 
description  of  the  ATGEN  utility,  which  manages  the  attribute  file  for  DYTOl -connected 
terminals. 

•  Chapter  2  of  this  manual  describes  the  DYTOl  port  numbering  algorithm. 

•  Chapter  4  describes  I/O  programming  with  PCBs  (Peripheral  Control  Bytes),  which  are  used 
to  control  terminals  on  the  DECdataway. 

•  The  DYTOl  DECdataway  Terminal  Interface  Technical  Manual  describes  installation, 
maintenance,  and  operation  of  the  DYTOl. 

The  DYTOl  is  a  single  port  serial  interface.  There  are  two  versions:  the  DYTOl  EA  connects  an  asyn- 
chronous RS-232-C  (EIA)  device  to  the  DECdataway;  the  DYTOl  MA  connects  a  20MA  device.  Any 
of  the  following  DEC  terminals  is  plug-compatible  with  the  DYTOl: 

VTIOO 

VT52 

VT50 

LA  120 

LA36 

LA34 

As  a  data  preprocessor,  the  DYTOl  off-loads  the  host  both  by  eliminating  character  interrupts  and  by 
performing  functions  normally  performed  by  the  host  terminal  driver. 

In  conjunction  with  the  DECdataway,  the  DYTOl  EA  offers  a  terminal  link  without  separate  modem  to 
a  maximum  length  of  15,000  feet.  The  DYTOl  absorbs  all  the  interrupts  and  processing  normally  asso- 
ciated with  terminal  servicing. 

The  DYTOl's  resident  diagnostics  allow  off-line  testing  of  its  terminal  and  cables. 
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C.l     DYTOl  DESCRIPTION 

Dimensions: 

Weight: 

Mounting: 


9.5xl0.5>    .05"  (HxWxD) 

10  lbs. 

Wall  (3  #10  screws),  or  table 


d!i;g  I 


tal 


[Carrier__Stallis       ] 


Figure  (-1     The  DYTOl  Terminal  Interface 


CM. I     LED  iTtdicators 


As  shown  in  Figure  C-I.  the  DYTOl  has  two  LEDs  on  its  front  panel:  the  carrier  LED  and  the  status 
\  V.D  Their  functions  are  described  in  the  following  two  sections. 

C'.I.Li     Carrier  LED     This  indicator  shows  activitv  on  the  DECdataway,  and  will  be  on  (lit)  if  the 
host  is  up  and  the  DECdataway  is  connected  and  functioning.  The  carrier  LED  is  not  programmable. 

C.l. 1,2     Status  LED     Note  that  the  status  LED  has  meaning  only  if  the  carrier  LED  is  on.  This  in- 
dicator can  show  the  lollowing  conditions: 

•  Completion  of  on-board  diagnostics.  While  diagnostics  are  running  the  status  LED  is  off.  It 
blinks  once  each  lime  titi.  on  board  diagnostics  complete. 

•  On-board  diagnostic  failure.  If  the  on-board  diagnostics  fail,  the  LED  blinks  eight  times  be- 
fore the  DYTOl  comes  on  line. 


Read  or  write  outsiijnding.  After  a  port  has  come  on  line,  the  LED  remains  on  if  a  read  or 
write  IS  outstanding. 


.June  198?. 
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•  On-line,  not  active.  If  the  port  is  on-line  but  inactive  the  LED  is  on,  but  dinnly  lit. 

•  Off-line.  If  the  port  is  off  line,  the  LED  is  off. 


C.2     DIAGNOSTICS 

DYTOI  diagnostics  are  run  under  two  conditions,  as  described  in  the  following  two  sections. 


C.2.1     Startup  Diagnostics 

When  a  DYTOI  connected  to  the  DECdataway  is  powered  up,  internal  diagnostics  will  execute  once.  If 
there  is  a  fatal  error,  the  DYTOI  loops  or  halts;  if  not,  it  comes  o--  line. 

If  there  is  a  non-fatal  error,  the  on-line  DYTOI  makes  that  information  available  to  the  host  in  the  10 
bytes  of  the  diagnostic  buffer.  The  on-line  diagnostic  task  CZKCIx  invokes  the  startup  diagnostics  and 
reports  if  softcore  errors  are  detected.  (See  the  DPM16  Diagnostic  User's  Guide  for  details.) 


C.2.2     Diagnostic  Mode  (Stand-Alone) 

When  the  DECdataway  connector  is  removed,  the  DYTOI  remains  in  the  diagnostic  loop,  continuously 
executing  on-board  diagnostics.  When  the  connector  is  replaced,  the  DYTOI  exits  diagnostic  mode. 


C.3     DECDATAWAY  ADDRESS  SELECTION 

The  DYTOI  u.ses  the  standard  DECdataway  connector,  reading  the  6-bit  address  from  the  address  plug 
to  determine  the  displacement  address  for  diagnostic  returns. 

When  the  host  software  is  generated,  the  addresses  of  all  DYTOI  interfaces  must  be  specified.  The 
generation  procedure  checks  all  DECdataway  address  assignments  for  consistency.  Device  address  as- 
signments can  be  changed  by  using  the  configuration  utility  CBC  described  in  the  DPM/DPM-PLUS 
System  Generation  and  Management  Guide. 

Correct  address  assignment  is  necessary  for  proper  operation  of  the  on-line  task  (ISBONL)  which  loads 
each  DYTOI  with  its  required  attributes  after  an  on-line  transition.  See  Section  C.4  for  descriptions  of 
attributes. 


C.4     ATTRIBUTES 

A  utility  program  called  ATGEN  is  supplied  with  each  DPM  system  to  provide  an  orderly  method  of 
creating  and  modifying  terminal  attributes. 

The  user  runs  ATGEN  at  the  host  to  create  a  terminal  attribute  file.  The  host  system,  via  ISBONL, 
down-line  loads  the  attributes  to  the  DYTOI.  ATGEN  is  described  in  the  DPM/DPM-PLUS  System 
Generation  and  Management  Guide. 
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Table  C-l  shows  the  terminal  attributes  that  can  be  selected  through  ATGEN. 


Table  C-l     Terminal  Attributes  Selectable  bv  ATGEN 


Attribute 

Legal  Values 

Character  length  in  bits 

5-8 

Number  of  stop  bits 

1-2 

Input  buffer  length 

1-133 

Input  terminating  character  #1 

1-177 

Input  terminating  character  #2 

1-177 

Echo  input  characters 

yes,  no 

CRT  terminal 

yes,  no 

Baud  rate 

50-9600 

Priority  device 

yes,  no 

Parity 

odd, even,  none 

Six  bytes  describe  the  attributes  of  any  port  on  a  DPMOl .  They  are,  in  the  order  in  which  they  arc  sent: 
BL    Tl     T2    LI     U2    ATT 


where: 


BL 


TI 

T2 
Ul 


is  the  specified  input  buffer  length.  This  must  be  greater  than  0  and  less  than  or  equal  to 
133  (decimal)  bytes.  BL  is  sent  as  a  binary  number.  Buffer  length  does  not  affect  the  max- 
imum length  of  a  write  message  (up  to  133  bytes). 

is  the  first  terminating  character.  Any  7-bit  ASCII  character  is  legal  except  000  and  177 
(rubout).  On  a  formatted  read,  termination  occurs  when  the  low-order  7  bits  of  an  input 
character  match  those  of  Tl. 

is  the  second  terminating  character,  and  follows  the  same  rules  as  Tl. 

describes  LART  attributes.  The  format  of  this  byte  is: 


Blt(s) 

I.O(LSB) 


3,2 


Attribute  if  Set 

00  =  odd  parity 

01  =  no  parity 

10  =  iven  parity 

1 1  ~  no  parity 

Character  length: 
00  =  5  bits 
01-6  bits 
10  =  7  bits 
n  -  8  bits 

When  character  length  is  6,  7.  or  8  bits,  a  '*  1 "  will  add  two  stop  bits 
to  the  character.  When  character  length  is  5  bits,  a  "  1 "  will  add  1 .5 
stop  bits.  When  bit  4  is  a  "0",  one  stop  bit  will  be  added. 
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U2 


5 
6 

7 


Always  0 
Always  1 
Always  0 


defines  ihe  UART  baud  rate  for  both  sending  and  receiving: 
Octal  Baud  Rate 


100 
101 
102 
103 
104 
1 05 
106 
i07 
110 
111 
112 
113 
114 
115 
116 
117 


50 

75 

no 

134.5 

150 

300 

600 

1200 

1800 

2000 

2400 

3600 

4800 

7200 

9600 

Invalid 


ATT    defines  the  port  attributes.  The  format  of  this  byte  is  as  follows: 


Bit 

0 (LSB) 

I 

2 

3 

4 

5 

6 

7 


Attribute  if  Set 

CRT  delete  enabled 

Priority  device  (XON/XOFF  enabled) 

No  echo  attribute  enabled  (overrides  a  PCB) 

Reserved;  must  be  0 

When  sent  by  host,  bit  is  irrelevant.  When  sent  by  a  DPMOl  or 
DYTOl  in  response  to  a  return  attributes  command.  0  =  DPMOl 
and  1  =  DYTOl. 

Always  0 

Always  1 

Always  0 
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C.4.1     CRT  Attribute 

Setting  the  CRT  attribute  has  a  number  of  implications: 

•  Typing  the  DELETE  key  causes  the  DYTOl  to  output  a  sequence  of  backspace,  space,  back- 
space. 

•  The  DYTOl  keeps  a  running  history  of  the  horizontal  position  of  the  cursor  in  the  formatted 
write  and  formatted  read  modes. 

•  Use  of  escape  sequences  is  not  supported,  although  they  will  be  passed  through  in  transparent 
mode. 

•  Characters  on  a  previous  line  cannot  be  deleted  because  only  one  line  at  a  time  is  processed. 
Within  this  constraint,  CRT  delete  is  fully  supported  for  TAB.  LINE  FEED  (no  action  -  the 
cursor  remains  in  the  same  column),  anu  the  character  set  from  40  through  176  (octal). 

•  Tab  stops  arc  assumed  at  8-character  intervals. 

NOTE 

Use  of  escape  sequences  for  cursor  positioning  may 
cause  tiie  DYTOTs  TAB  delete  to  perform  in- 
correctly. 


C.4.2     Delete  Attribute 

The  DYTOl  supports  the  DELETE  key  in  the  formatted  read  (S  and  T)  modes.  CRT  delete  is  sup- 
ported as  described  in  Section  C.4.1;  hard  copy  delete  is  supported  by  echoing  back  the  character  de- 
leted from  the  input  buffer.  Any  character  that  is  legal  to  read  can  be  deleted. 

Attempts  to  delete  back  past  the  beginning  of  the  input  buffer  or  the  start  of  the  current  line  will  ring 
the  bell  in  the  terminal. 


C.4.3     No  Echo  Attribute 

The  no  echo  attribute  overrides  any  input  PCB  command  requiring  echo. 


C.4.4     Priority  Device  Attribute 

A  priority  device  is  one  for  which  XON  and  XOFF  (CTRL/Q  and  CTRL/S)  are  supported  by  the 
DYTOl.  These  commands  can  be  used  to  temporarily  suspend  and  resume  output  from  the  DYTOl. 
These  actions  occur  within  one  character  time  at  any  baud  rate.  Note  that  the  DYTOl  cannot  originate 
these  commands;  i.e.,  it  cannot  temporarily  suspend  input  from  a  terminal.  These  commands  are  in- 
active on  input  from  a  terminal. 
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C.5    PCB  COMMANDS 

Functions  are  requested  via  a  set  of  four  bytes  called  peripheral  control  bytes  (PCBs),  which  must  pre- 
ceed  data  messages.  These  PCBs  control  the  activity  of  each  port. 

A  DYTOl  processes  PCBs  in  the  following  sequence: 


1. 

Status 

2. 

Transaction 

3. 

Write 

4. 

Read 

A  single  command  may  involve  several  distinct  functions;  each  function  is  satisfied  before  the  next  is 
processed. 

The  terminal  interface  indicates  to  the  host  the  outcome  of  a  requested  function  by  appending  the  read, 
write,  and  transaction  PCBs  -  along  with  a  new  status  PCB  -  to  the  front  of  a  message  returned  to 
the  host. 

Table  C-2  shows  the  PCBs  that  the  DYTOl  recognizes. 


Table  C-2    Peripheral  Control  Bytes  for  the  DYTOl 


PCIN 


PCOUT 


PCTRAN 


PCSTAT 


PCSTAT 


Returned 

Read 

Write 

Transaction 

Status 

Status 

Commands 

Commands 

Commands 

Command 

Commands 

(& 

fe 

fe 

^ 

@ 

A 

A 

L 

A 

B 

S 

F 

R 

T 

O 

S 

P 

T 

W 

U 

X 

V 

z 

w 

C.5.1     PCIN  (Read)  Peripheral  Control  Byte 

There  are  nine  read  commands: 

@         Null  read.  There  is  no  read  action  taken  with  this  command.  The  transaction  is  complete. 

A  Return  configuration.  There  are  two  bytes  of  data  in  the  return  following  the  PCBs.  The 
first  is  a  "D"  indicating  that  a  DECdataway  terminal  interface  is  responding;  the  second  is 
an  ASCII  number  "X"  from  0  through  3  indicating  the  "relative  port  number"  as  though 
the  DYTOl  were  a  port  within  a  DPMOl.  The  "relative  port  number"  is  the  two  least  sig- 
nificant bits  of  the  port  number  minus  1. 
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B  Return  diagnostic  information.  The  data  return  is  in  the  form: 

D  X  mm§m  N  SF  BL  T1  T2  Ul  U2  ATT 


Where: 


Dand  X 


are  the  same  as  described  for  command  A. 


MMWH        are  ten  bytes  of  diagnostic  data. 


N 


SF 


summarizes  the  results  of  the  diagnostics  where  each  of  the  low- 
order  four  bits  corresponds  to  a  port  number  as  though  each 
DYTOl  were  a  port  within  a  DPMOI.  Any  of  these  bits  re- 
turned as  a  binary  1  indicates  a  DYTOl  has  failed  a  power- 
up  test  and  is  inactive. 

is  always  100  (octal). 


The  remaining  six  bytes  describe  the  attributes  of  the  port  (see  Section  C.4). 


BL 
T1,T2 

Ul,  U2 
ATT 


Buffer  length,  in  bytes 
Two  termination  characters 
UART  attributes 
Attribute  byte 


R  Formatted  read.  Same  as  command  S  below,  except  that  characters  arc  not  echoed  regard- 

less of  the  attribute  setting. 

S  Formatted  read.  The  legal  character  set  is  40  (octal)  through  176  (octal)  plus  TAB.  RE- 

TURN, LINE  FEED,  and  either  of  the  two  terminating  characters.  The  two  user-definable 
terminating  characters  must  be  seven  bits  each  in  the  range  I  177  (octal).  Either  termi- 
nating character  causes  a  carriage  return  to  be  echoed  to  the  input  device.  Terminating 
conditions  include  the  following: 

framing  error 

overrun  error 

parity  error 

buffer  full 

either  terminating  character 

The  most  significant  bit  is  stripped  from  each  byte.  DELETE  is  supported  (see  Section 
C.4. 2).  All  legal  input  characters  are  echoed  (unless  the  no  echo  attribute  is  set).  Illegal 
input  characters  are  ignored  without  setting  an  error  condition.  Only  fixed  tabs  (of  8 
spaces)  are  supported. 

T  Read  transparent.  Same  as  command  U  below,  except  no  echo  regardless  of  attribute  set- 

ting. 

U  Read  transparent  with  echo.  Read  all  binary  data  from  0  through  377  (octal).  Input  is  ech- 

oed unless  the  no  echo  attribute  is  set.  All  input  is  stored  without  examination  or  modifica- 
tion. Full  buffer  and  port  error  are  the  only  termination  conditions. 
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V  Read  translucent  [transparent  with  terminator(s)].  Same  as  command  W  below,  except  no 

echo. 

W  Read  translucent  [transparent  with  echo  and  terminator(s)].  Same  as  command  U,  except 
that  termination  characters  will  cause  termination  of  transaction  (as  will  full  buffer  and 
port  error).  Termination  characters  are  compared  with  the  lower  seven  bits  only.  RETURN 
is  automatically  echoed  when  a  terminator  is  encountered. 


C.5.2     PCOUT  (Write)  Peripheral  Control  Byte 


NOTE 


Writing  more  than  137  characters  (4  PCBs  and  133 
data  characters)  will  cause  a  DYTOl  to  go  off  line 
(lE.DNR). 


There  arc  four  write  commands: 


<§»  Null.  No  action. 

A  Reserved  diagnostic  command.  This  command  causes  the  DYTOl  to  restart  and  execute 

internal  diagnostics. 

S  Formatted  write.  The  entire  ASCII  set  from  0  through  377  (octal)  is  passed.  The  first  data 

character  following  the  PCS  commands  is  taken  as  a  vertical  format  control  (VFC)  charac- 
ter. 

VFC  Character     Octal  V  alue       Action 


SP 

040 

<LF>  data  <RET> 

0 

060 

<LF>  <LF>  data  <RET> 

1 

061 

<FF>  data  <RET> 

+ 

053 

data  <RET> 

$ 

044 

<LF>  data 

null 

000 

data 

any  other 

<LF>  data  <RET> 

Where: 

Data  is  the  message  to  be  written. 

T  Transparent  write.  Pass  all  binary  data  from  0  through  377  (octal).  Cursor  position  is  not 

calculated. 


€9 
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C.S.3     PCTRAN  (Transaction)  Peripheral  Control  Byte 

There  are  two  transaction  commands: 

%         Null.  No  action. 

L  Load  new  attributes:  BL,  Tl   T2.  U 1 ,  U2,  and  ATT  (see  Section  C.4).  It  is  strongly  sugges- 

ted that  ISBONL  be  used  to  load  terminal  interface  attributes.  Any  u.ser-loaded  attribute 
will  be  lost  after  an  on-line  transition.  Error  checks  are  made  for  excessive  or  null  buffer 
length;  errors  cause  the  entire  attribute  message  to  be  ignored. 


C.5.4     PCSTAT  Peripheral  Control  Bytes 

There  is  one  status  PCB  command: 

fe         Null  when  sent   from  host  to  DPMOI.   End  of  buffer  termination  status  return  from 
DPMOl. 

There  are  eight  return  status  PCB  commands;  they  indicate  the  outcome  of  requested  functions: 

^         Termination  on  full  buffer. 

Illegal  request  status  return.  (An  illegal  PCB  was  encountered.) 

Framing  error  in  UART.  (For  example,  the  BREAK  key  was  typed.) 


A 
F 
O 


Overflow  error  in  UART.  (For  example,  the  input  capacity  of  the  DYTOl  has  been  exceed- 
ed by  setting  the  baud  rate  too  high.) 

P  Parity  error  in  UART. 

W         User-loaded  terminating  character  which  is  not  carriage  return  or  CTRL/Z.  This  character 
is  passed  back  in  the  transaction  byte. 

X         Termination  on  RETURN. 

Z  CTRL/Z  termination. 
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APPENDIX  D 

SUMMARY  OF  FDMUTR  SUBROUTINE  AND 
MACRO  CALLS  FOR  DPM  TERMINALS 


D.I     FDMUTR  SUBROUTINE  CALLS  FOR  DPM  TERMINALS 

Format 

CALL  FDINIT  (RESIJLT,1V1AXTR!VI) 

CALL  FDCONN  (RESULT,TRMIND(,SBADDR1[,LUN]) 

CALL  FDDISC  (RESULT,TRMIND) 

CALLFDWRIT(RESULT,TRMIND,WRC0DE,MSGBIIF,!V1SGSIZ|,TRANLT1I,STATI!S1) 
CALLFDREAD(RESLJLT,1V1SGBUF,1V1SGSIZ,TR1V1IND,RDC0DE|,TRANLT1(,STATIIS]) 

CALLFDPRRD(RESL)LT,lVfSGBUF,MSGSIZ,TRlVlIND,PRCODE,PROBlIF,PROSIZ(,TRANLT][,STATlJS]) 
CALL  FDWAIT  (WHOIND) 

CALL  FDSTAT  (STAVEC,TRIVlIND,!VlSGBLJFI,STCODEl(,S<rOLlN  f]) 


Function 

Initialize  task  FDMUTR 

Connect  task  to  terminal 

Disconnect  task  from 
terminal 

Write  message  to  terminal 
Read  message  from  terminal 

Write  prompt,  read  message 

Suspend  task  and  wait  for 
terminal 

Get  status  vector 


D.2    MACRO  CALLS  FOR  DPM  TERMINALS 


Format 


Function 


a 


QIOS  lO.KIL,... 

QIO$  lO.ATT,... 

QIOS  lO.DET,... 

QIOS  IO.WLB,...,<STADD,SIZE> 

QIOS  lO.RLB <STADD,SIZE> 

QIOSIO.WPC <STADD3IZE„HDADD,HDSIZE> 

QIO$IO.RPC,...,<STADD3IZE„HDADD,HDSIZE> 
QIOS  IO.WVB,...,<STADD,SIZE> 
QIOS  lO.RVB <STADD,SIZE> 


Cancel  ail  I/O  requests 

Attach  device 

Detach  device 

Write  logical  block 

Read  logical  block 

Write  with  Peripheral 
Control 

Read  with  Peripheral  Control 

Write  virtual  block 

Read  virtual  block 
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ATS  I/O  PROGRAM  EXAMPLES 


E.1     OVERVIEW 


The  following  program  examples  illustrate  the  use  of  ATS  terminal  I/O  with  high  level  languages.  The 
first  example  program  is  written  in  BASIC,  the  second  is  written  in  COBOL,  and  the  third  program  is 
written  in  FORTRAN. 


::';x 


E-l 


10  ON  ERROR  GOTO  32000 

1000  INPUT    "INT  IN  %";J 

1010  J=J/100 

1020  INPUT    "AMOUNT  OF  LOAN"; A 

1030  INPUT    "NUMBER  OF  YEARS" ;N 

1040  INPUT    "PAYMENTS/YEAR" ;M 

1050  N=N*M\   I=J/M\   B=l+I 

1060  R=A*I/(1-1/B'^N) 

1070  OPEN  "TI:  "  FOR  OUTPUT  AS  FILE  2%  \  GOSUB  10000 

1080  CLOSE    2% 

1090  LINPUT   "DO  YOU  WANT  A  LISTING" ;L$       & 

\  IF  LEFT  (L$,1%)="N"  THEN  1000            & 
ELSE  LINPUT  "OUTPUT  T0";0$              & 

\  IF  0$=""  THEN  0$="TI: " 

1100  OPEN  0$  FOR  OUTPUT  AS  FILE  2% 

1110  PRINT  #2, "LISTING  FOR  LOAN  AMOUNT  $";A;"  FOR  " ;N/M; "YEARS  AT  ";J*100;"%"  & 

\  GOSUB  10000 

1130  B=A      \        H%=1% 

1140  PRINT  #2,"    INTEREST  ";  '  PRINCIPLE  ";"   BALANCE" 

1150  L=B*I  \  P=R-L  \  B=B-P 

1160  PRINT    #2  USING  '###   ####.##   ####.##   ######.##'  ,H% ,L ,P, B 

1170  H%=H%+1% 

1180  IF  B>=R  GOTO  1150 

1190  PRINT  #2  USING  '###   ####.##   ####.##'  ,H% , B*I , R-B*I 

12  00  PRINT  #2,  "LAST  PAYMENT="; 

1210  PRINT  #2  USING  '####.##'  ,B*H-B 

1300  CLOSE    2% 

1310  GOTO     1000 

10000  PRINT  #2, "EACH  PAYMENT=";  \  PRINT  #2  USING  '####. ##',R             L 

\  PRINT  #2,  "TOTAL  INTEREST=";  \  PRINT  #2  USING  '#######.##',  (R*N-A) 

10010  RETURN 

32000  RESUME  32767 

32767  END 


S 

99 


i 

i 

> 

H 


E.3  SAMPLE  COBOL  TASK  USING  ATS  I/O 


IDENTIFICATION  DIVISION 
PROGRAM-I D .      CLOAN . 


ENVIRONMENT  DIVISION. 
CONFIGURATION  SECTION. 
SOURCE-COMPUTER. 
OBJECT-COMPUTER . 


PDP-11 
PDP-11 


INPUT-OUTPUT  SECTION. 
FILE -CONTROL. 

SELECT  DETAIL-OUT  ASSIGN  TO  "TI: " . 

DATA  DIVISION. 
FILE  SECTION. 


FD 


01 


DETAIL-OUT 

RECORD  CONTAINS  72  CHARACTERS 
VALUE  OF  ID  IS  DEV-FLD 
LABEL  RECORDS  ARE  STANDARD. 

DETAIL-REC 


PIC  X(72) 


WORKING-STORAGE  SECTION. 

01       DEV-FLD 

01       DISPLAY-HOLD-FIELDS. 
02    PCNT-HOLD 
02    PCNT-EDIT. 

05       PCNT-EDIT-1 

05       PCNT-EDIT-2 
02    PCNT-RED  REDEFINES  PCNT-EDIT 

02    LOAN-AMNT-HOLD 

02    LOAN-AMNT-EDIT . 

05       LOAN-AMNT-EDIT-1 
05       LOAN-AMNT-EDIT-2 

02    LOAN-AMNT-RED  REDEFINES  LOAN- 

02    YEARS -HOLD 

02    PMTS-PER-YEAR-HOLD 

02    NUM-JUST. 

05       NUMl 

05       NUN2 

05       NUN3 

05       NUM4 


PIC  X(9) . 


PIC  X(10) . 

PIC  999999. 
PIC  XXXX. 

PIC  9(6)V9{4) . 
PIC  X(10) . 

PIC  999999. 
PIC  XXXX. 
•AMNT-EDIT 

PIC  9(6)V9(4) . 
PIC  9999. 
PIC  9999. 

PIC  X. 

PIC  X. 

PIC  X. 

PIC  X. 


■;W;*fe 


E-3 


02    NUN-JUST-RED  REDEFINES  NUN-JUST  PIC  9999. 


01 

PCNT 

PIC 

9(8)V9(8) 

CONP. 

01 

RATE 

PIC 

9(8)V9(8) 

CONP. 

01 

LOAN-ANNT 

PIC 

9(8)V9(8) 

CONP. 

01 

YEARS 

PIC 

9999 

CONP. 

01 

PNTS-PER-YBAR 

PIC 

9999 

CONP. 

01 

TOT-PNTS 

PIC 

99999999 

CONP. 

01 

NONTH-RATE 

PIC 

9(8)V9(8) 

CONP. 

01 

NONTH-RATE-INC 

PIC 

9(8)V9(8) 

CONP. 

01 

PNT-ANNT 

PIC 

9(8)V9(8) 

CONP. 

01 

TOT-INT 

PIC 

9(8)V9(8) 

CONP. 

01 

CUR-YEAR 

PIC 

9(8)V9(8) 

CONP. 

01 

INT 

PIC 

9(8)V9(8) 

CONP. 

01 

PRINC 

PIC 

9(8)V9(8) 

CONP. 

01 

BALANCE 

PIC 

9(8)V9(8) 

CONP. 

01 

LST-PNT 

PIC 

9(8)V9(8) 

CONP. 

01 


ANSWER 


PIC  X. 


01 


HEADER-OUT- 1. 


01 


01 


02 

FILLER 

VALUE 

PIC  X(13) 
"EACH  PAYNENT«". 

02 

Al 
HEADER- 

OUT- 2 . 

PIC  ZZZZZ9.99. 

02 

FILLER 

VALUE 

PIC  X(15) 
"TOTAL  INTEREST=". 

02 

A2 
DETAIL- 

•OUT-1. 

PIC  ZZZZZ9.99. 

02 

FILLER 

VALUE 

PIC  X(24) 
"LISTING  FOR  LOAN  ANOUNT  " . 

02 

Dl 

FPIC  $$$$99.99. 

02 

FILLER 

VALUE 

PIC  XXXXX 

"  FOR  ". 

02 

D2 

PIC  ZZ9. 

02 

FILLER 

VALUE 

PIC  X(10) 
"  YEARS  AT  ". 

02 

D3 

PIC  Z9.99. 

02 

FILLER 

PIC  X           VALUE 

••%" 

01 

02 

DETAIL-OUT-TIT. 
FILLER 

VALUE  " 

PIC  X(32) 
INTEREST   PRINCIPLE  BALANCE" » 

01 
02 
02 
02 

DETAIL-OUT-RPT. 

Rl 

R2 

R3 

PIC  ZZ9. 

PIC  ZZZZZ9.99. 

PIC  ZZZZZ9.99. 

E-4 

• 

01 


02 

02 
02 


R4 


PIC  ZZZZZZZZ.ZZ 


DETAIL-OUT-END. 

FILLER  PIC  X(13) 

VALUE  "LAST  PAYMENT='' . 
El  PIC  ZZZZZ9.99. 


PROCEDURE  DIVISION. 

PGM-START. 

MOVE  "TI: "  TO  DEV-FLD. 

MOVE  ZEROS  TO  DISPLAY-HOLD-FIELDS. 

DISPLAY  "  " 

DISPLAY  "INTEREST  IN  PERCENT?  "  WITH  NO  ADVANCING. 

ACCEPT  PCNT-HOLD. 

UNSTRING  PCNT-HOLD  DELIMITED  BY  " . "  OR  SPACE 

INTO  PCNT-EDIT-1,  PCNT-EDIT-2. 
MOVE  PCNT-RED  TO  PCNT . 
DIVIDE  PCNT  BY  100  GIVING  RATE. 
IF  RATE  =  ZERO   STOP  RUN. 

ASK-AMOUNT.  ' 

DISPLAY  "AMOUNT  OF  LOAN?  "  WITH  NO  ADVANCING. 

ACCEPT  LOAN-AMNT-HOLD. 

UNSTRING  LOAN-AMNT-HOLD  DELIMITED  BY  "."  OR  SPACE 

INTO  LOAN-AMNT-EDIT-1,  LOAN-AMNT-EDIT-2 . 
MOVE  LOAN-AMNT-RED  TO  LOAN-AMNT. 

ASK-YEARS. 

DISPLAY  "NUMBER  OF  YEARS?  "  WITH  NO  ADVANCING. 

ACCEPT  YEARS-HOLD. 

MOVE  YEARS-HOLD  TO  NUM-JUST. 

PERFORM  NUM-JUSTIF  THRU  NUM-JUSTIF-EXIT . 

MOVE  NUM-JUST-RED  TO  YEARS-HOLD.  ^. 

MOVE  YEARS-HOLD  TO  YEARS. 


WITH  NO  ADVANCING. 


ASK-PMTS. 

DISPLAY  "PAYMENTS  /  YEAR? 

ACCEPT  PMTS-PER- YEAR-HOLD. 

MOVE  PMTS-PER-YEAR-HOLD  TO  NUM-JUST. 

PERFORM  NUM-JUSTIF  THRU  NUM-JUSTIF-EXIT. 

MOVE  NUM-JUST-RED  TO  PMTS-PER-YEAR-HOLD. 

MOVE  PMTS-PER-YEAR-HOLD  TO  PMTS-PER-YEAR. 

COMPUTE  TOT-PMTS  ROUNDED  =  YEARS  *  PMTS-PER-YEAR. 
COMPUTE  MONTH-RATE  ROUNDED  =  RATE  /  PMTS-PER-YEAR. 
COMPUTE  MONTM  RATE-INC  ROUNDED  =  MONTH-RATE  +  1. 
COMPUTE  PMT-AMNT  ROUNDED  =  LOAN-AMNT  *  MONTH-RATE  / 
(1  -  1  /  MONTH-RATE-INC  **  TOT-PMTS) . 
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OPEN  OUTPUT  DETAIL-OUT. 

PERFORM  HEDOUT  THRU  HEDOUT-EXIT. 

CLOSE  DETAIL-OUT. 

LIST-START. 

DISPLAY  "DO  YOU  WANT  A  LISTING  7  "  WITH  NO  ADVANCING. 

ACCEPT  ANSWER. 

IF  ANSWER  =  "N"  GO  TO  PGM-START . 

IF  ANSWER  NOT  =  "Y"      GO  TO  LIST-START. 

DISPLAY  "OUTPUT  TO?  "  WITH  NO  ADVANCING. 

ACCEPT  DEV-FLD. 

IF  DEV-FLD  =  SPACES 

MOVE  "TI: "  TO  DEV-FLD. 

OPEN  OUTPUT  DETAIL-OUT. 

MOVE  LOAN-AMNT  TO  Dl . 

MOVE  YEARS  TO  D2 . 

MOVE  PCNT  TO  D3 . 

WRITE  DETAIL-REC  FROM  DETAIL-OUT-1 . 

PERFORM  HEDOUT  THRU  HEDOUT-EXIT. 

WRITE  DETAIL-REC  FRO,^;  DETAIL-OUT-TIT. 
MOVE  LOAN-AMNT  TO  BALANCE. 
PERFORM  DETOUT  THRU  DETOUT-EXIT 

VARYING  CUR-YEAR  FROM  1  BY  1 

UNTIL  BALANCE  <  PMT-AMNT . 

MOVE  CUR-YEAR  TO  Rl . 

MULTIPLY  BALANCE  BY  MONTH-RATE  GIVING  INT. 

MOVE  INT  TO  R2. 

COMPUTE  PRINC  ROUNDED  =  PMT-AMNT  -  BALANCE  *  MONTH-RATE 

MOVE  PRINC  TO  R3 . 

MOVE  ZERO  TO  R4 . 

WRITE  DETAIL-REC  FROM  DETAIL-OUT-RPT . 


COMPUTE  LST-PMT  ROUNDED  =  BALANCE  *  MONTH-RATE 

MOVE  LST-PMT  TO  El. 

WRITE  DETAIL-REC  FROM  DETAIL-OUT-END. 

CLOSE  DETAIL-OUT. 
GO  TO  PGM-START. 


+  BALANCE 


NUM-JUSTIF. 

IF  NUM4  NOT  =  SPACE,  GO  TO  NUM-JUSTIF-EXIT 

MOVE  NUM3  TO  NUM4 . 

MOVE  NUM2  TO  NUMB. 

MOVE  NUMl  TO  NUM2 . 

MOVE  ZERO  TO  NUMl. 

IF  NUM4  NOT  =  SPACE,  GO  TO  NUM-JUSTIF-EXIT 

MOVE  NUM3  TO  NUM4 . 
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MOVE  NUM2  TO  NUM3 . 
MOVE  ZERO  TO  NUN2 . 

IF  NUM4  NOT  =  SPACE,  GO  TO  NUM-JUSTIF-EXIT. 
MOVE  NUM3  TO  NUM4 . 
MOVE  ZERO  TO  NUN3 . 

IP  NUM4  NOT  «  SPACE,  GO  TO  NUM-JUSTIF-EXIT. 
MOVE  ZERO  TO  NUM4 . 
NUM-JUSTIF-EXIT. 
EXIT. 


HEDOUT . 

MOVE  PMT-AMNT  TO  Al . 

WRITE  DETAIL-REC  FROM  HEADER-OUT- 1 

COMPUTE  TOT- I NT  ROUNDED  -  PMT-AMNT 
LOAN-AMNT. 

MOVE  TOT- I NT  TO  A2 . 

WRITE  DETAIL-REC  FROM  HEADER-OUT-2 
HEDOUT-EXIT. 

EXIT. 


*  TOT-PMTS  - 


DETOUT . 

MOVE  CUR-YEAR  TO  Rl . 

COMPUTE  INT  ROUNDED  =  BALANCE  *  MONTH-RATE. 

MOVE  INT  TO  R2. 

COMPUTE  PRINC  ROUNDED  =  PMT-AMNT  -  INT. 

MOVE  PRINC  TO  R3 . 

COMPUTE  BALANCE  ROUNDED  =  BALANCE  -  PRINC. 

MOVE  BALANCE  TO  R4 . 

WRITE  DETAIL-REC  FROM  DETAIL-OUT-RPT. 
DETOUT-EXIT. 

EXIT. 
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E.4    SAMPLE  FORTRAN  TASK  USING  ATS  I/O 


FORTRAN   EXAMPLE 

BYTE  ANSWER (80), TEMPA (80) 

EQUIVALENCE  (TENPA,DEFA) 


1 
10 

20 


30 
40 
50 
60 
70 


80 
90 

100 


110 
111 

120 


,$) 


DATA  DEFA/'TI:     '/ 

TYPE  10 

FORMAT       (/'$INT    IN    %    ' ) 

ACCEPT      20,PCNT 

FORMAT      (F3.2) 

IF    (PCNT    .EQ.    0)    GOTO    500 

PCNT-PCNT/100 

TYPE  30 

FORMAT       (•$AMOUNT   OF   LOAN    ') 

ACCEPT      40, AMOUNT 

FORMAT      (F6.2) 

TYPE  50 

FORMAT       ('    NUMBER   OF   YEARS    ',$) 

ACCEPT      60,YRS 

FORMAT       (F3.0) 

TYPE  70 

FORMAT       (•    PAYMENTS/YEAR    ' 

ACCEPT      60, PAY 

CNT«YRS*PAY 

PI-PCNT/PAY 

B«PI+1 

REM»AMOUNT*PI/ (1-1/B**CNT) 

OPEN    (NAME='TI:  • ,UNIT«2) 

CALL 

CLOSE 

TYPE 

FORMAT 

ACCEPT 

FORMAT 

IF    (ANSWER (1) 

TYPE  100 

FORMAT       ( ' $OUTPUT   TO    ?    ' ) 

ACCEPT      9  0 , KOUNT , ( ANSWER ( I )  , I  =  1 , KOUNT ) 

IF    (KOUNT    .NE.    0)    GOTO    111 

DO    110    ,I«1,3  • 

ANSWER(I)=TEMPA(I) 

CONTINUE 

K0UNT=3 

ANSWER (KOUNT+1)=0 

OPEN  (UNIT»2,NAME»ANSWER) 

WRITE         (2,120) , AMOUNT, CNT/PAY, PCNT 

FORMAT       ('    LISTING    FOR   LOAN   AMOUNT    ',F9.2,' 

1    '    YEARS   AT    ' ,2PF7.2,'%    ') 

CALL  HEDOUT ( REM , CNT , AMOUNT ) 

BAL« AMOUNT 


HEDOUT (REM, CNT, AMOUNT) 

(UNIT=2) 

80 

(•$D0   YOU   WANT   A   LISTING     r    ') 

90, KOUNT, (ANSWER (I) ,1=1, KOUNT) 

(Q,80A1) 

.NE.     'Y'     .AND.    ANSWER (1) 


.NE.    'y')    GOTO    1 


FOR    '  ,F3.0 
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130 
140 


150 


160 


500 


(2,130) 
I 
I 


INTEREST   PRNCIPLE 


WRITE 

1000 

FORMAT 

WRITE 

1001 

FORMAT 

RETURN 

END 

1=1 

WRITE 

FORMAT   (IH 

COST=BAL*PI 

PRIN=REM-COST 

BAL=BAL-PRIN 

WRITE    (2,150)1 , COST, PRIN,BAL 

FORMAT   (IH  ,I4,2F10.2,F12.2) 

1=1  +  1 

IF 

WRITE 

WRITE 

FORMAT 

CLOSE 

GOTO     1 

END 

SUBROUTINE  HEDOUT (R,CNT , AMOUNT) 
(2,1000)  ,R 
(IH  ,'EACH  PAYMENT= 
(2, If    ; (R*CNT-AMOUNT) 
(IH  ,iOTAL  INTEREST='F15.2) 


BALANCE  ' ) 


(BAL  .GE.  REM)  GOTO  140 

(2,150)  I ,BAL*PI ,REM-BAL*PI 

(2,160)  BAL*PI+BAL 

(•  LAST  PAYMENT  =',F10.2) 

(UNIT=2) 


'  ,F12.2) 
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GLOSSARY 


ACP 


See  Ancillary  Control  Process. 


Address  (DECdataway) 

A  device  identifier  for  a  unit  on  the  DECdataway.  An  example  is  SB  123:. 

Ancillary  Control  Process  (ACP) 

A  privileged  task  that  performs  logical  I/O  functions  at  a  level  between  the  user  task  and  the 
physical  device  driver. 

See  Network  ACP,  Terminal  ACP. 


AST 


Asynchronous  System  Trap. 


ATS 


DPM-PLUS  Application  Terminal  Support.  Consists  of  the  ATS  Dispatcher  and  the  ATS  Termi- 
nal ACP.  Used  with  DPMOl/VTllO-connected  terminals. 


Attributes 


Characteristics  of  a  specific  terminal  or  device  attached  to  a  DPMOl  or  VTl  10  on  the  DECdata- 
way. These  characteristics  include  baud  rate,  parity,  number  of  bits  per  character,  etc. 


Base  Port 


The  lowest  port  on  a  DPMOl /VTl  10  or  a  DIS. 


Broadcast  Channel 


Port  0  of  each  DECdataway  controller  is  called  the  broadcast  channel,  and  can  be  used  only  by 
the  DPM  system  software. 
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Channel 


A  communication  path  between  the  host  and  a  remote. 


Connect  Block 

Eight-word  array  used  in  MACRO- 1 1  programs  to  specify  details  about  a  network  connection 
being  either  requested  or  rejected. 


Connection 


See  Logical  Connection. 


Connection  Status  Block 

A  32io  word  integer  array  used  in  FORTRAN  calls  to  the  network  software,  to  identify  a  con- 
nection 


CRC 


Cyclic  Redundancy  Check. 

DECdataway 

The  communication  system  that  links  the  DPM  host  with  terminals  and  remote  computer  sub- 
systems. 

The  DECdataway  consists  of: 

1 .  A  multidrop  cable 

2.  A  DECdataway  controller  for  the  host  (ISBl  1) 

3.  A  DECdataway  interface  in  each  remote  subsystem  (ISVl  1) 

4.  A  ^""Cdataway  interface  incorporated  into  terminals  (RT801,  RT803,  RT805)  and  multi- 
plexers (DPMOl/VTl  10) 

DECdataway  Controller 

A  controller  (ISBll)  which  supervises  protocol  control  procedures  for  polling,  data  transfer,  and 
error  recovery.  It  is  bus  master  for  63  DECdataway  addresses  and  a  broadcast  channel.  It  provides 
DMA  paths  for  each  of  the  DECdataway  addresses. 


DECdataway  Controller  Driver 

See  SBDRV. 
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DECdataway  Remote  Interface 

A  communications  interface  (ISVl  1)  between  the  remote  processor  and  the  DECdataway.  It  pro- 
vides for  DMA  transfers  for  the  computer  system  and  allows  for  booting  and  diagnostics. 


DIS 


A  DPM50  or  DPM23  DECdataway  Intelligent  Subsystem. 


Dispatcher 


A  program  or  set  of  programs  that  start  a  task  executing  in  response  to  a  request  from  a  terminal 
operator.  Specific  dispatchers  are  the  ATS  Dispatcher  or  the  FDM  Dispatcher. 


DLC 


The  Down-Line  Control  Task  (DLC)  loads  RSX-1  IS  system  images  into  the  DIS  memory  over  the 
DECdataway,  and  starts  the  system. 


Down-Line  Load 

1 .  The  process  of  loading  the  memory  of  a  DIS  with  an  appropriate  system  image  from  the  host. 

2.  The  process  of  loading  the  attributes  of  a  specific  terminal  from  the  host  to  a  terminal  multi- 
plexer. 


DPM 


1.  Distributed  Plant  Management. 

2.  Distributed  Plant  Management  software  that  runs  under  RSX-1  IM. 


DPM-PLUS 


Distributed  Plant  Management  software  that  runs  under  RSX-1  IM-PLUS. 


DPMOl 


A  terminal  multiplexer  for  the  DECdataway  that  can  support  up  to  four  terminals. 


DPM23 


DECdataway  Programmable  Subsystem — a  DIS  based  on  an  LSI-11/23  processor. 
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DPM50 


DECdataway  I/O  Subsystem— a  DIS  based  on  an  LSI-1 1  or  an  LSI-1 1/23  and  an  I/O  Control 
Module  (lOCM)  for  process  I/O  modules. 


DPM50H 

The  host  version  of  the  Network  ACP. 

See  Ancillary  Control  Process,  Network  ACP. 

DPM50R 

The  remote  version  of  the  Network  ACP. 
See  Network  ACP. 


FDM 


Factory  Data  Management. 


Host  Processor 


The  DECdataway  controllers  are  located  in  this  processor. 


Intertask  Communication 

The  exchange  of  information  between  a  pair  of  tasks:  one  in  the  host,  and  the  other  in  a  DIS. 


lOCM 


The  Input/Output  Control  Module  is  the  controller  for  the  I/O  modules  which  comprise  the  pro- 
cess control  I/O  subsystem. 


ISBU 

1 .  Microcode  file  for  the  DECdataway  controller. 

2.  See  DECdataway  CONTROLLER. 


isvn 


See  DECdataway  Remote  Interface. 


Logical  Connection 

A  conversation  path  between  two  tasks — one  task  in  the  DPM  host,  and  the  other  task  in  a  DIS. 
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Network  ACP 

An  ancillary  control  process  that  transforms  network  requests  from  user  tasks  into  I/O  requests 
over  the  DECdataway.  One  network  ACP  (DPM50H)  runs  in  the  host  and  communicates  with  a 
network  ACP  (DPM50R)  running  in  each  DIS. 


NIDRV 


The  Network  Driver,  one  component  of  the  DPM  Network  Software.  It  is  supplied  in  both  host 
and  remote  versions,  along  with  the  Network  ACPs,  to  provide  intertask  communications. 


Node 


A  DIS. 


Node  Name 


An  alphanumeric  string  up  to  six  characters  long.  It  is  used  to  uniquely  identify  a  DIS. 


Node  Number 


Unit  number  of  a  DIS's  base  port. 


Peripheral  Control  Bytes  (PCBs) 


The  first  four  characters  of  every  message  sent  to  or  from  a  DECdataway  terminal  (RT80x, 
DPMOl/VTl  10)  and  the  host  computer.  Used  to  exchange  control  and  status  information. 


Polling 

The  process  used  by  the  DECdataway  controller  to  interrogate  a  device  for  its  status. 


Port 


1.  One  of  the  drops  on  a  DECdataway  controller  (maximum  of  64).  Devices  with  multiple 
DECdataway  addresses  locally  refer  to  them  as  ports  0  through  n;  for  example  DPMOl  port 
0-3,  or  DIS  ports  0  and  1. 

2.  One  of  four  terminal  interfaces  within  a  DPMOl/VTl  10  multiplexer. 

3.  Control  and  status  registers  of  the  ISBl  1,  as  in  Port  Wait  Queue. 

4.  The  ISVl  1  is  sometimes  referred  to  as  a  DECdataway  port. 


Remote 

A  DIS. 
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RT801/803/805 

Factory  data  collection  terminals. 

SBDRV 

The  RSX  driver  for  the  DECdataway  controller. 

SBTACP 

See  Terminal  ACP. 

SVDRV 

The  RSX  driver  for  the  DECdataway  remote  interface. 

Terminal  ACP 

An  Ancillary  Control  Process  (SBTACP)  that  allows  tasks  using  standard  language  interfaces  to 
communicate  with  ATS  terminals. 

Sec  ATS. 


Transaction  Index 

A  one-  or  two-digit  value  entered  by  the  operator  of  a  DPMOl/VTl  10-connected  terminal,  which 
is  used  by  the  FDM  Dispatcher  in  searching  its  data  file  for  a  task  to  be  invoked. 

Transaction  Key 

1 .  The  key  (push-button)  on  the  face  of  an  RT803  terminal,  or  one  of  the  eig  u  keys  on  the  face 
of  an  RT805  terminal,  used  to  select  a  transaction-handling  task. 

2.  A  value  used  by  the  FDM  Dispatcher  in  searching  its  data  file  for  a  task  to  be  invoked  in 
response  to  operator  action  at  an  RT80x  terminal. 

Unit  Number 

A  number  between  0  and  377(8)  used  to  reference  one  DECdataway  address;  for  example,  47  used 
to  reference  SB47;. 


VTllO 


A  VTIOO  terminal  thai  contains  a  DPMOl  multiplexer. 
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INDEX 


ACCEPT 

COBOL,  1-8.  3- It 

FORTRAN,  1-8,  3-lt 
Access  control 

ATS  Dispatcher,  6-1  to  6-3 

example,  6-3  to  6-5 
Applications  terminal  support,  1-8.  (See  also  ATS) 
Area  work  station,  1-2,  4-2.  (See  also  RT805  terminal) 
ATGEN  utility,  3-2 
ATS 

introduction.  1-7,  1-8 
ATS  Dispatcher.  1-8,  3-1,6-1  to  6-10 

access  control,  6-1  to  6-5 

error  messages,  6-9,  6-10 

HELP  facility,  6-6,6-7 

introduction,  1-8 

invoking  tasks,  6-8,  6-9 

logging  in,  6-7,  6-8 

logging  out,  6-7,  6-8 

overview.  6-1 

prerequisites  to  using,  6-5 

pseudodevice  TL,  1-8 

system  notes,  6-5,  6-6 

user's  guide,  6-7,  6-9,  6-10 
ATS  terminal  I/O 

buffer  size,  3-2 

differences  from  TT:,  3-2 

functions,  3-lt.  3-2 

introduction,  1-8 

overview,  3-1.  3-2 

program  examples,  E-1  to  E-9 

read  termination  in,  3-2 

usage  notes,  3-2 
AWS,  4-2.  (See  also  Area  work  station) 


Badge  indicator,  A-1 
Badge  reader 

type  3,  A-1.  (See  also  Card/badge  reader) 

type  5,  A-1,  A-2f,  A-4f,  A-6t,  A- 1  Of,  A-1 5,  A- 16 
BASIC-PLUS-2,  1-6 

ATS  I/O  program  example,  E-2 

functions  in  ATS,  1-8 

with  ATS,  3-1 
Basic  work  station,  1-2,  4-2.  (See  also  RT803  terminal) 
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Buffer 

control,  1-6 

data,  1-6 

size  in  ATS,  3-2 

terminal,  3-2 
Building  task  with  FDMUTR,  2-21 
BWS,  4-2.  (See  also  Basic  work  station) 

Calls 

FDMUTR  subroutine,  2-1  to  2-20 
Calls,  FDMUTR  subroutine,  2-3 
Calls,  subroutine 

summary,  D-1,  D-2 
Card/badge  reader  (type  3),  A-1,  A-3f,  A-4f,  A-8t,  A-9t,  A-1  If, 

A-12f,  A-16 
CDU,  6-5.  (See  also  Connect/ Disconnect  utility) 
Checkpointing 

and  shuffling,  1-7 

task,  1-7 

with  ATS,  3-2 
COBOL,  1-6 

ATS  I/O  program  example,  E-3  to  E-7 

functions  in  ATS,  1-8,  3-1 

linking  task  to  FDMUTR,  2-21 

sample  task  with  FDMUTR,  2-23  to  2-25 

send/receive  module,  5-9,  5-10 

with  ATS,  3-1 
Configuration 

DECdataway,  B-4 
Connect  task  to  terminal,  2-6 
Connect/ Disconnect  utility,  6-5 
Control  buffer,  1-6 
Con  -ol  characters 

with  ATS  Dispatcher,  6-9 
Co  [roller,  DECdataway,  1-1 
Co  trols 

DPMOl  terminal  multiplexer,  B-3 

RT800  terminal,  C-1 

RT801  terminal,  A-2f,  A-6t 

RT803  terminal,  A-3f,  A-7  to  A-9 

RT805  terminal,  A-4f 

RT80x  terminal,  A-1 
CRT  attribute,  B-9 
CTRANS,  5-22  to  5-41 
CTRL/Q  combination,  B-9 

with  ATS  Dispatcher,  6-9 
CTRL/S  combination,  B-9 

with  ATS  Dispatcher,  6-9 
CTRL/Z  combination 

as  termination  character,  3-2 


Data  buffer,  1-6 
Data  transfer 

to  terminal,  4-8 
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% 


DECdataway 

configuration,  B-4 
DECdataway  controller,  1-1 
Delete  key 

DMPOl  SUPPORT,  B-9 
Demonstration  task 
for  terminal,  1-2 
DPMTST,  1-2 
FDMTST,  1-2 
RT800D,  1-2 
WSDEMO,  1-2 
Descriptor,  user,  6-2 
DEV  SB:  command,  3-2 
Device 

attach,  4-5 
detach,  4-5 

logical  unit  number  (LUN),  2-6 
priority,  3-2 
pseudo,  3-2 

supported  by  SBDRV,  4-5 
Directive  error,  6-10 
Disconnect  task  from  terminal,  2-7 
Dispatch  file,  FDM,  5-3,  5-4,  5-6 
Dispatcher,  ATS,  1-8,  3-1,  6-1  to  6-10 
access  control,  6-1  to  6-5 
error  messages,  6-10 
HELP  facility,  6-6,  6-7 
overview,  6-1 

prerequisites  to  using,  6-5 
system  notes,  6-5,  6-6 
user's  guide,  6-7,  6-9 
Dispatcher,  FDM,  1-6,  1-7 

COBOL  send/receive  module,  5-9,  5-10 
dispatch  file,  5-3,  5-4,  5-6 
interfaces,  5-6 
task  group,  5-1 

task  samples,  5-1 1  to  5-13,  5-17  to  5-41 
DISPLAY 

COBOL,  1-8,  3-1 
Display 

RT80x  character  set.  A- 19 
Display  I/O  processing,  A-17 
DPM-PLUS  system,  1-1 
DPM  system,  1-1 

introduction,  1-1 
DPM  terminal 

descriptions,  1-1,  1-2 
DPMOl  terminal  multiplexer,  B-1,  B-2f 
attributes,  B-7  to  B-9 
controls  and  indicators,  B-3 
diagnostics  mode,  B-9 
indicators,  B-3t 
normal  mode,  B-9 
operator's  guide,  B-3 
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supervisory  mode  no.  1,  B-9 

supervisory  mode  no.  2,  B-10 
DPMOl/VTllO  multiplexer,  1-2 

command  summary,  4-3,  4-4 
Driver 

QIO  interface  to,  4-8 
DSP,  6-5.  (See  also  Dispatcher) 
DSPPRT,  6-5 

installation  error,  6-9 


Error,  directive,  6-10 
Error,  I/O,  6-10 
Error  messages 

ATS  Dispatcher,  6-9,  6-10 

FDCONN,  2-6 
...FDD,  5  2,  5-4,  5-6 
...FDD-to-operator  interface,  5-6 
FDDISC,  2-7 
FDINIT,  2-5 
FDM  Dispatch 

director  (FDMDSD)  or  (...FDD),  5-2 

file,  5-3,  5-4,  5-6 

sequence  number,  5-8 
FDM  Dispatcher,  1-6,  1-7 

application  notes,  5-10,  5-11 

catcher,  5-8 

COBOL  send/receive  module,  5-9,  5-10 

COBOL  task  example,  5-22  to  5-41 

COBOL  tasks  using,  5-10 

data  block,  5-10 

data  records,  5-4 

director,  5-2,  5-4 

dispatch  file,  5-3,  5-4,  5-6 

error  reporter  (FDMDSE),  5-2 

executive,  5-10 

executive  (FDMDSX),  5-2,  5-7,  5-8 

FORTRAN  task  example,  5-12  to  5-21 

FORTRAN  tasks  using,  5-10 

interfaces,  5-6 

MACRO  tasks  using,  5-10 

sequence  number,  5-8 

size  of,  5-10 

task  group,  5- If 

task  name,  5-4 

task  samples,  5-11  to  5-41 

terminal  name,  5-4 

terminal  response  time,  5-10 

test  tasks,  5-8,  5-9 

transaction  index,  5-6  to  5-8 

transaction  key/index,  5-4 
FDM  utility  subroutines,  2-1  to  2-3.  (See  also 
FDMUTR) 

functions,  i-6 
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FDMCAT,  5-6,  5-8 

FDMDIS,  5-2,  5-4,  5-6.  (See  also  FDM  Dispatcher) 

data  block,  5-7,  5-8 

interfaces,  5-7,  5-8 
FDMDSD,  5-2,  5-4.  (See  also  FDM  Dispatch,  director) 
FDMDSE,  5-2,  5-6.  (See  also  FDM  Dispatch  error  reporter) 
FDMDSE-to-operator  interface,  5-6 
FDMDST,  5-8 
FDMDSX,  5-2,  5-6,  5-7.  (See  also  FDM  Dispatcher,  executive) 

interfaces,  5-6 

sequence  number,  5-8 
FDMSAR,  5-9,  5-10 
FDMSUB,  2-21,  2-22 
FDMUTG,  2-1 
FDMUTR,  1-6,  1-7,  5-11.  (See  also  FDM  utility  subroutines) 

application  notes,  2-21,  2-22 

global  names,  2-21 

impure  data  in,  2-21 

initialize,  2-5 

linking  task  to,  2-21 

memory  needs,  2-21,  2-22 

multi-threaded  task,  2-3 

number  of  terminals,  2-1 

single-threaded  task,  2-4 

summary  of  calls,  D-l,  D-2 

task  building  with,  2-21 

task  interface.  2-2 

with  COBOL  task,  2-23  to  2-25 

with  FORTRAN  task,  2-26,  2-27 

with  MACRO  task,  2-28,  2-29 

word  boundaries  in,  2-22 
FDMUTX,  2-1 
FDPRRD,  2-14,  2-15,  2-16 
FDREAD.  2-10  to  2-13 
FDSTAT,  2-18  to  2-20 
FDWAIT,  2-17 

global  patches,  2-22 
FDWRIT.  2-8,  2-9 
File 

FDM  Dispatch,  5-3,  5-4,  5-6 

overlay  description,  2-21 

Run  Class,  6-4,  6-5 

RUNCLS.TXT,  6-4 

task.  6-5,  6-6 

terminal  class,  6-9 
FORTRAN.  1-6 

ATS  I/O  program  example,  E-8,  E-9 

functions  in  ATS,  1-8 

sample  task  with  FDMUTR,  2-26,  2-27 

with  ATS,  3-1 
FTRANS.  5-12  to  5-21 
FXRCVD.  5-9 
FXRCVX,  5-10 
FXSTAR,  5-9 
FXSTOP.  5-9 
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Get  LUN 

device  port  number  inforination,  4-8t 

word  0,  4-6 

word  1 ,  4-6 

word  2,  4-6 

word  2  interpretation,  4-7t 

word  4,  4-7 f 

word  5,  4-8 
Get  status  vector,  2-18  to  2-20 
Global  names,  2-21 
GLUN  buffer.  3-3t 
GLUNS,  3-2.  3-3.  (See  also  get  LUN) 
Guidance  indicator,  A-1 

Hard-copy  terminal,  1-1 
HELP  facility 

ATS  Dispatcher.  6-6.  6-7 

setup,  6-6,  6-7 
Hollerith-to-ASCII  conversion.  A- 19 
Host  processor,  1-1 

I/O,  terminal,  1-7,  1-8 

I/O  error,  6-10 

I/O  program  examples,  ATS,  E-1  to  E-9 

I/O  request 

cancel,  4-5 
I/O  status  block,  3-6 
Impure  data,  2-21 
Index,  transaction,  1-7 
Indicator,  badge,  A-1 
Indicator,  guidance,  A-1 
Indicators 

DPMOl  terminal  multiplexer,  B-3 

RT800  terminal,  C-1 

RT801  terminal,  A-2f,  A-6t 

RT803  terminal,  A-3f,  A-7  to  A-9 

RT805  terminal,  A-4f 

RT80x  terminal,  A-1 
INPUT 

BASIC-PLUS-2,  1-8 
Interface 

DECdataway,  1-1 

FDM  Dispatcher,  5-6  to  5-9 

FDMDIS,  5-7,  5-8 

FDMDSE-to-operator,  5-6 

FDMDSX,  5-6 

QIO,  3-2  to  3-7,  4-1  to  4-8 

subroutine,  1-6 
Invoking  terminal,  1-8.  (See  also  TI:) 
lO.ATT,  4-5 
lO.DET,  4-5 
lO.KIL,  4-5 

in  ATS,  3-2 
lO.RLB,  4-5 

in  ATS,  3-2 
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lO.RVB.  4-5 
lO.WLB,  4-5 

in  ATS.  3-2 
lO.WPC,  4-5 
lO  WVB,  4-5 

Key,  transaction,  1-7,  A- 1 
Kcyswitch 

notes.  A- 18 

RT80x  terminal,  A-5f 

LA  I  20  keyboard/printer,  1-4 

LA35  printer,  1-2 

LA36  keyboard/printer,  1-2 

Language  functions  usable  with  ATS,  3- It 

Logging  in 

ATS  Dispatcher,  6-7,  6-8 
Logging  out 

ATS  Dispatcher,  6-7,  6-8 
Logical  block 

write.  4-5 
Login  Code.  6-3.  6-2 
LOGOUT.  6-8 
LUN,  3-1 

assigninent.  2-6 

get.  3-2 

information  directive.  3-2,  3-3 

information  macro,  4-6,  4-8 

MACRO 

sample  task  with  FDMUTR,  2-28,  2-29 

summary  of  calls,  D-1,  D-2 

task,  4-9  to  4-13 

with  ATS,  3-2t 
MACRO  task 

data  transfer  to  terminal,  4-8 
MAINT  kcyswitch  position,  A-13 
MCR  SET  command 

caution  in  using,  3-2 
Message 

ATS  Dispatcher  errors,  6-9,  6-10 

read  after  writing  prompt,  2-14  to  2-16 

read  from  terminal,  2-10  to  2-13 

write  to  terminal,  2-8,  2-9 
MSGBUF.  2-1 
/MU  switch.  6-1 
Multi-threaded  task.  1-7,  2-3 
Multidrop  cable.  1-1 
Multiple-copy  tasks 

ATS  Dispatcher,  6-6 
Multiplexer 

DPMOl.  1-5,  B-1 

DPMOl  operator's  guide,  B-2,  B-3 

DPMOI/VTllO,  1-2 
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DPMOl/VTl  10  command  summary,  4-3,  4-4 
hardware  block  diagram,  l-5f 

No  echo  attribute,  B-9 

Numeric  data  entry  terminal,  1-1,  1-2,  1-4,  1-7.  (See  also  RT800 
terminal) 

PASSWORD:,  6-7.  (See  also  Access  control) 
PCB  characters 

and  meanings  for  bytes,  4-4t 
PCBs.  4-3  to  4-13 

commands,  B-4  to  B-6 

description,  4-1,  4-2 

directly  encoded,  1-4,  1-6 

functions  for  terminal,  1-4,  1-6 

RT80x  interpretation,  4-3 

RT80x  replies  to,  4-3 
PCI N,  4-1  to  4-4,  B-4,  B-5 

processing.  A- 15,  A- 16 
PCIN/PCOUT 

processing.  A- 17 
PCOUT,  4-1  io  4-4,  B-5 

processing,  A- 14,  A- 15 
PCREP,  4-1 
PCREQ,  4-1 

validation,  A- 13 
PCSTAT,  4-1  to  4-4,  B-6 

processing.  A- 13 
PCTRAN,  4-1  to  4-4,  B-6 

processing.  A- 14 
Peripheral  control  bytes,  1-4,  1-6,  4-1  (See  also  PCBs) 
Peripheral  control  reply  (PCREP),  4-1 
Peripheral  control  request  (PCREQ),  4-1,  4-2 

RTSOx  replies  to,  4-3t,  4-4t 

to  RTSOx,  4-4t 
Pool,  system 

used  by  ATS,  1-8 
PRIN,  4-3 
PRINT 

BASIC-PLUS-2,  1-8,  3-1 
Printer,  LA35,  1-2 
Priority  device,  3-2 
Privilege  violation,  6-10 
PROBUF,  2-1 
Processor,  host,  1-1 
Prompt,  write,  2-14  to  2-16 
Protection 

system,  6-2  to  6-4 

task,  6-1,  6-2 
PROUT,  4-3 
PRSTAT,  4-3 
PRTRAN,  4-3 
Pseudodevice  TI:,  1-7,  1-8,  3-1 

ATS  Dispatcher,  1-8 
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QIO  function  codes 

lO.RPC,  1-4 

lO.WPC,  1-4 
QIO  functions  for  driver.  4-5,  4-6 
QIO  interface 

ATS,  3-2  to  3-7 

functions,  3-4 

PCBs,  4-1  to  4-7 

to  driver,  4-5,  4-6,  4-8 

Read  message  after  writing  prompt,  2-14  to  2-16 
Read  message  from  terminal,  2-10  to  2-13 
RECOEX,  5-10 
Remote  subsystems,  1-1 
RETURN  key 

as  termination  character,  3-2 
Returns 

error  and  status,  3-5  to  3-7 
RT800  terminal,  1-4,  C-lf,  C-2 

data  transmission,  C-3 

responses  to  data,  C-2,  C-3 
RT801  terminal,  1-2,  A-1,  A-2f,  A-6,  A-10 

badge  reader,  A-2f,  A-1  Of 

controls  and  indicators,  A-6t 

keyswitch,  A-5f 

operating  procedure,  A-1  Of 
PT803  terminal,  1-2,  A-1,  A-3f,  A-9 

card/badge  reader,  A-3f,  A-1  If 

controls  and  indicator,  A-3f 

controls  and  indicators,  A-7t,  A-8t 

function  keys,  A-7t 

guidance  indicator  lights,  A-3f 

keypad  switches,  A  7t 

keyswitch,  A-5f 

operating  procedure,  A-1  If 
RT805  terminal,  1-2,  A-1,  A-4f 

badge  reader  (type  5),  A-4f,  A-12f 

card/badge  reader  (type  3),  A-4f,  A-12f 

controls  and  indicators,  A-4f 

keyswitch,  A-5f 

ono-ating  procedure,  A-12f 

tasks  using  FDM  Dispatcher,  5-11 
RT80x  terminal,  1-1  to  1-5,  A-2  to  A-s2 

character  sets,  A-19t 

command  summary,  4-2  to  4-4 

controls,  A-1 

descriptions,  1-2 

display  character  set,  A-i. 

functional  specification,  A-1 3  to  A- 19 

keyswitch  codes,  5-5f 

keyswitch  positions,  A-6t 

keyswitch  programming  notes,  A-1 8 

on-board  diagnostics,  A-1 3 

operating  procedures,  A-9 


1-9 


PCREQ  interpretation,  4-2 
power  ON/OFF,  A-9 
transaction  key  codes,  5-5 

RT80x  terminals 

hardware  diagram,  1-3 

Ruggedized  terminal,  1-1,  1-2 

Run  Class,  6-3 

Run  Class  File,  6-4,  6-5 

RUNCLS.TXT,  6-2,  6-3,  6-5 


SB:,  4-5 

SBDRV,  4-5,  4-6,  4-8 

SBTACP,  6-5 

SET  (MCR)  command 

caution  in  using,  3-2 
Shuffling  tasks 

and  checkpointing,  1-7,  1-8 
Single-threaded  task,  2-4 
SPEEDY  task,  5-6,  5-9 

Status  peripheral  control  byte,  B-6.  i.  Jee  also  PCSTAT) 
Status  returns,  3-7t 
Status  vector 

get,  2-18  to  2-20 
STAVEC,  2-1 

word  format,  2-19f 
Subroutine  calls,  2-4,  2-8 

FDCONN,  2-6 

FDDISC,  l-i 

FDINIT,  2-5 

FDPRRD,  2-14  to  2-16 

FDREAD,  2-10  to  2-13 

FDSTAT,  2-18,  2-20 

FDWAIT,  2-17 

FDWRIT,  2-8,  2-9 

■ummary,  D-1,  D-2 
Subroutines,  FDM  utility,  2-1,  2-3 

functions,  1-6 
Subsystems,  remote,  1-1 

Support,  applications  terminal,  1-8  (See  also  ATS) 
Suspend  task  and  wait  for  terminal,  2-17 
System  pool 

used  by  ATS,  1-8 
System  protection,  6-2 

limited,  6-3,  6-4 

login,  6-3  to  6-5 

terminal-based,  6-3  to  6-5 

unprotected,  6-3,  6-4 
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building  with  FDMUTR,  2-21 
checkpointing,  1-7,  1-8,  3-2 
connect  to  terminal,  2-6 
demonstration  for  terminals,  1- 
disconnect  from  terminal,  2-7 
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file  for  ATS  Dispatcher,  6-5,  6-6 

illegal  name,  6-9 

invoking  with  ATS  Dispatcher,  6-8,  6-9 

linking  to  FDMUTR,  2-21 

MACRO,  4-8 

modular,  1-6 

mulii-threaded,  1-7,  2-1,  2-3 

multiple-copy,  6-6 

naming  conventions,  6-5,  6-6 

protection,  6-1,  6-2 

shuffling,  1-7,  1-8 

single-threaded,  2-1,  2-4 

suspend  and  wait  for  terminal,  2-17 
TASK.TXT.  6-3,  6-4 
Terminal 

blocking  output,  6-9 

class  file,  6-9 

connect  task  to,  2-6 

data  transfer,  4-5 

descriptions  of  DPM,  1-1,  1-2 

determining  ATS,  3-1 

disconnect  task  from,  2-7 

hard  copy,  1-1 

keyswitch  programming  notes,  A-1 8 

multiplexer  (DPMOl),  1-4,  l-6f,  B-1 

number  supported  by  FDMUTR,  2-1,  2-5.  (See  also  MAXTRM) 

read  message  from,  2-10  to  2-13 

response  time,  5-10,  5-11 

RT800,  1-4,  C-l,C-2 

RT800  data  transmission,  C-3 

RT800  responses  to  data,  C-2,  C-3 

RT801,  1-2,  A-..  A  2,  A-6,  A-7,  A- 10 

RT803,  1-2,  A-1,  A-8,  A-9,  A-11 

RT805,  1-2,  A-1,  A-4f,  A-12f 

RT80x,  1-1,  4-2  to  4-4,  5-5,  A-2  to  A- 12 

RT80x  character  sets,  A- 19 

RT80x  connecting  to  DECdataway,  A- 13 

RT80x  controls  and  indicators,  A-1 

RTSOx  diagnostics.  A- 13 

RT80x  features,  1-2,  1-4 

RT80x  functional  specification.  A- 13  to  A- 19 

RTSOx  hardware  block  diagram,  1-5 

SBn:,  4-5 

supported  by  SBDRV,  4-5 

user's  guide  to  ATS  Dispatcher,  6-7  to  6-10 

vertical  format  characters,  3-4,  3-5 

VTIOO,  1-4 

VTIOO/VTIIO,  B-10 

VTllO,  1-4 

VT52,  1-4 

write  message  to,  2-8,  2-9 
Terminal,  ruggedized,  1-1,  1-2 
Terminal  Class,  6-5,  6-2 
Terminal  I/O,  1-7,  1-8 
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Terminal  support,  applications,  l-8.(Se    also  ATS) 
Termination  character 

in  ATS,  3-2 
TI:,  pseudodevice,  1-7,  1-8,  3-1 

Time  and  attendance  station,  1-2.  (See  also  RT801  terminal) 
Transaction  index,  1-7 
Transaction  key,  1-7,  A-1 

Transaction  peripheral  control  byte,  B'6.  (See  also  PCTRAN) 
TRMCLS.TXT,  6-2,  6-5 
TT:  terminal  I/O 

differences  from  ATS,  3-2 
TYPE 

FORTRAN,  1-8,  3-lt 

UIC,  6-4.  (See  also  User  identification  code) 
User  Class,  6-3.  (See  also  Run  Class) 
User  Descriptor,  6-2 
User  Identification  Code,  6-4 
USERID:,  6-7 
Utility,  ATGEN,  3-2 
Utility  subroutines,  FDM,  2-1,  2-3 
functions,  1-6 

Vector 

status,  2-18  to  2-20 
Vertical  Format  Control,  3-4.  (See  also  VFC  characters) 
VFC  characters,  3-4t,  3-5t 
Violation,  privilege,  6-10 
Virtual  block 

read,  4-5 
VTIOO  terminal,  1-4 
VTIOO/VTI 10  terminal 

setup,  BIO 
VTllO  terminal,  1-4 
VT52  terminal,  1-4 

Wait  for  terminal 

after  suspending  task,  2-17 
Word  boundaries,  2-22,  3-2,  3-4 

ATS,  3-2,  3-4 

FDMUTR,  2-22 
Write  message  to  terminal,  2-8,  2-9 
Write  peripheral  control  byte,  B-5.  (See  also  PCOUT) 
Write  prompt,  2-14  to  2-16 

and  read  message,  2-14  to  2-16 

XOFF,  B-9 
XON,  B-9 
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